This example creates the illusion of depth with the scaling property that resizes a single bitmap as it travels along a path. Note that the path, rather than the bitmap itself, uses the scaling property. The animate command accesses the scaling parameters from the info dialog box of cd path 1.
The code appears as follows:
on mouseUp
animate cd bmp "car" along cd path 1
end mouseUp
eBMAP
CCRDH3.0c.05
DCRDH3.0c.06
ECRDH3.0c.07
CRDH2.0a.02
CRDH2.0a.03
"CRDH2.0a.04
0CRDH3.0.00
CRDH3.0a.01
2CRDH3.0a.02
3CRDH3.0a.03
;CRDH3.0b.03
ACRDH3.0c.04
bTAIL
CRDH5.0a.01
UCRDH5.0a.02
VCRDH5.0a.03
KCRDH3.0c.12
SCRDH5.0.00
CRDH5.0a.04
[INFO
5.0b.01SCRP
on openCard
resetToggle
pass openCard
end openCard
on playPath
resetToggle
animate cd bmp "car" along path 1
end playPath
on togglePath
if the short name of the target is "Pause" then
if the isPlaying of path 1 is false then exit togglePath
This example demonstrates one use of the path object. You can move the bitmap either from its initial location or from the location at which you press pause. The start button will rerun the animation from the initial object position. The stop button will stop the playing path at whatever point the car is on. The pause button is a toggle. If the button is named "Pause", it will stop the path if it is playing. If the button's name is set to "Continue", it will restart the playing path from the position where it paused.
The code appears as follows:
on openCard
resetToggle
animate cd bmp "car" along cd path 1
pass openCard
end openCard
on playPath
resetToggle
animate cd bmp "car" along path 1
end playPath
on togglePath
if the short name of the target is "Pause" then
if the isPlaying of path 1 is false then exit togglePath
pause path 1
set the name of the target to "Continue"
else
play path 1
set the name of the target to "Pause"
end if
end togglePath
on stopPath
resetToggle
stop path 1
end stopPath
on resetToggle
set the name of cd btn id 15 to "Pause"
end resetToggle
to "Pause"
enBMAP
]INFO
5.0b.03SCRP
on mouseDown
put the cursor into lastCursor
if "vtab" is not in the short name of the target
then exit mouseDown
global gCursorNormal
put the last char of the short name of the target
into ctlNum
put getvMinMax(the target,
the ref of cd bmp ("vSlide"&ctlNum)) into minMax
set the cursor to fist
put item 1 of the loc of the target into xLoc
repeat until the mouse is up
set the location of the target to xLoc,
max(min(mouseV(),item 2 of minMax),item 1 of minMax)
end repeat
put item 2 of the loc of the target into yLoc -- in case of fast click
set the cursor to lastCursor
stop path 1
stop path 2
-- Assumes properly centered square path object
-- leg properties are relative to the topLeft of
-- the path object
-- force numeric coersion
put the ref of cd path (ctlNum+0) into pathRef
put (the height of pathRef)/2 into pOff
put getvVal(yLoc, minMax, the minSize of pathRef,
the maxSize of pathRef) into x
-- put the start location on the left, for better layout
set the startpoint of pathRef to -x,pOff
set the endpoint of pathRef to -x,pOff
set the centerpoint of pathRef to pOff,pOff
lock screen
get abs(2*(pOff-x))
put the ref of shp ("path"&ctlNum) into shpRef
set the width of shpRef to it
set the height of shpRef to it
-- force coercion to numeric
set the loc of shpRef to the loc of pathRef
unlock screen
animate grp "path2" along path 1
animate cd bmp "car" along cd path 2
end mouseDown
-- get upper and lower physical bounds for slider
function getvMinMax tabObj, slideObj
get trunc((the height of tabObj)/2) -- make it integer
return the top of slideObj + it&","&the bottom of slideObj-it
end getvMinMax
-- return a value between minVal and MaxVal based on
-- relative vertical position of val between minMax
function getvVal val, minMax, minVal, maxVal
--breakpoint
put 1/(item 2 of minMax-item 1 of minMax) into scale
This example is almost exactly the same code as the previous. The mouseDown code has been "genericized" to be used at the card level and handle multiple targets.
The real trick in this example is animating a group containing a path along another path.
The code appears as follows:
on mouseDown
put the cursor into lastCursor
if "vtab" is not in the short name of the target
then exit mouseDown
global gCursorNormal
put the last char of the short name of the target
into ctlNum
put getvMinMax(the target,
the ref of cd bmp ("vSlide"&ctlNum)) into minMax
set the cursor to fist
put item 1 of the loc of the target into xLoc
repeat until the mouse is up
set the location of the target to xLoc,
max(min(mouseV(),item 2 of minMax),item 1 of minMax)
end repeat
put item 2 of the loc of the target into yLoc -- in case of fast click
set the cursor to lastCursor
stop path 1
stop path 2
-- Assumes properly centered square path object
-- leg properties are relative to the topLeft of
-- the path object
-- force numeric coercion
put the ref of cd path (ctlNum+0) into pathRef
put (the height of pathRef)/2 into pOff
put getvVal(yLoc, minMax, the minSize of pathRef,
the maxSize of pathRef) into x
-- put the start location on the left, for better layout
set the startpoint of pathRef to -x,pOff
set the endpoint of pathRef to -x,pOff
set the centerpoint of pathRef to pOff,pOff
lock screen
get abs(2*(pOff-x))
put the ref of shp ("path"&ctlNum) into shpRef
set the width of shpRef to it
set the height of shpRef to it
-- force coercion to numeric
set the loc of shpRef to the loc of pathRef
unlock screen
animate grp "path2" along path 1
animate cd bmp "car" along cd path 2
end mouseDown
-- get upper and lower physical bounds for slider
function getvMinMax tabObj, slideObj
get trunc((the height of tabObj)/2) -- make it integer
return the top of slideObj + it&","&the bottom of slideObj-it
end getvMinMax
-- return a value between minVal and MaxVal based on
-- relative vertical position of val between minMax
function getvVal val, minMax, minVal, maxVal
--breakpoint
put 1/(item 2 of minMax-item 1 of minMax) into scale
The Ferris wheel is a large, double wheel structure, with the wheel situated perpendicular to the ground and supported by one or two towers. It revolves with seats, or cars, set between the two rims. It was invented for the 1893 World's Colombian Exposition in Chicago by the American engineer G.W. Ferris. The original wheel could carry more than 2,000 people at a time, providing an exceptional view of the exposition grounds from its apex of 250ft. Most modern wheels are 40 to 45 feet in diameter.
animate cd bmp "lean_left", cd bmp "scream_right",
cd bmp "lean_right", cd bmp "scream_left" along cd path 1
end mouseUp
on mouseEnter
global gCursorButton
set the cursor to gCursorButton
end mouseEnter
on mouseLeave
global gCursorNormal
set the cursor to gCursorNormal
end mouseLeave
revealcoverSCRP
on mouseUp
hide_reveal
end mouseUp
revealscriptSCRP
on mouseUp
hide_reveal
end mouseUp
This example demonstrates the flipInterval property of the path object. Once the car bitmap starts down the path, a timer effect switches the bitmaps between the two riders screaming and leaning at interval + 1 ticks.
The script code appears as follows:
on mouseUp
animate cd bmp "lean_left", cd bmp "scream_right",
cd bmp "lean_right", cd bmp "scream_left" along cd path 1
max(min(mouseV(),item 2 of minMax),item 1 of minMax)
end repeat
put item 2 of the loc of me into yLoc -- in case of fast click
set the cursor to lastCursor
stop cd path 1
-- Assumes properly centered square path object
-- leg properties are relative to the topLeft of
-- the path object
put (the height of cd path 1)/2 into pOff
put getvVal(yLoc, minMax, 20, 120) into x
set the startpoint of cd path 1 to x,pOff
set the endpoint of cd path 1 to x,pOff
set the centerpoint of cd path 1 to pOff,pOff
lock screen
get abs(2*(pOff-x))
set the width of cd shp "path1" to it
set the height of cd shp "path1" to it
set the loc of cd shp "path1" to the loc of cd path 1
unlock screen
animate cd bmp "car" along cd path 1
end mouseDown
-- get upper and lower physical bounds for slider
function getvMinMax tabObj, slideObj
get trunc((the height of tabObj)/2) -- make it integer
return the top of slideObj + it&","&the bottom of slideObj-it
end getvMinMax
-- return a value between minVal and MaxVal based on
-- relative vertical position of val between minMax
function getvVal val, minMax, minVal, maxVal
put 1/(item 2 of minMax-item 1 of minMax) into scale
put item 2 of minMax-val into v
put v*scale into pct
get maxVal-minVal
return it*pct+minVal
end getvVal
on mouseEnter
set the cursor to hand
end mouseEnter
on mouseLeave
global gCursorNormal
set the cursor to gCursorNormal
end mouseLeave
#######
sndMessagesTAIL
INFO
rsNAME
path id 9data
path1TAIL
cardata
*#%'<
9447%
#VVVZ
UUVZiDZ
{4?6667
2'#6666
7%*666
*%627$+
,46*"
69777
777*2*
-,'%66*
727727
*26**946
2*26$
,,'6%
,-'677
revealcoverSCRP
on mouseUp
hide_reveal
end mouseUp
revealscriptSCRP
on mouseUp
hide_reveal
end mouseUp
This example demonstrates a method for dynamically modifying the path radius size. The hard part of this is calculating the slider percentage based on the location of the handle relative to the bar.
Once that is calculated, the path is set to the proper size and location and the shape which shows the path is set to the appropriate size as well.
The code appears as follows:
on mouseDown
put the cursor into lastCursor
put getvMinMax(the ref of cd bmp "vTab",
the ref of cd bmp "vSlide") into minMax
set the cursor to fist
put item 1 of the loc of me into xLoc
repeat until the mouse is up
set the location of me to xLoc,
max(min(mouseV(),item 2 of minMax),item 1 of minMax)
end repeat
put item 2 of the loc of me into yLoc -- in case of fast click
set the cursor to lastCursor
stop cd path 1
-- Assumes properly centered square path object
-- leg properties are relative to the topLeft of
-- the path object
put (the height of cd path 1)/2 into pOff
put getvVal(yLoc, minMax, 20, 120) into x
set the startpoint of cd path 1 to x,pOff
set the endpoint of cd path 1 to x,pOff
set the centerpoint of cd path 1 to pOff,pOff
lock screen
get abs(2*(pOff-x))
set the width of cd shp "path1" to it
set the height of cd shp "path1" to it
set the loc of cd shp "path1" to the loc of cd path 1
unlock screen
animate cd bmp "car" along cd path 1
end mouseDown
-- get upper and lower physical bounds for slider
function getvMinMax tabObj, slideObj
get trunc((the height of tabObj)/2) -- make it integer
return the top of slideObj + it&","&the bottom of slideObj-it
end getvMinMax
-- return a value between minVal and MaxVal based on
-- relative vertical position of val between minMax
function getvVal val, minMax, minVal, maxVal
put 1/(item 2 of minMax-item 1 of minMax) into scale
To cause the bumper car bitmap to follow the cursor around, the bitmap's script uses a loop to check the location of the cursor and reset the location of the car to those values. Additionally, the script checks the car's location against a pre-determined bounding box, restricting the bumper car bitmap's location to inside the rectangle.
The code appears as follows:
on mouseEnter
put "196,148,443,332" into arena
repeat until the mouse is down
put the mouseloc into ml
if ml is within arena then set the loc of me to ml
In this example a bitmap, the lever in this case, is used to initiate its own animation as well as the animation of two bumper car bitmaps along a path. The script generates the lever's movement by showing and hiding a series of bitmaps. Once the lever is completely down, the two cars move along the path.
The path utilizes the flipInterval property to switch between several bitmaps creating the illusion of the bumper cars driving along the contour of the path.
The code appears as follows:
on openCard
-- set the playLists of the two paths (see below)
-- Note that the playList "sticks" to the path and this
-- Card 5.0c.01 logic for ghost transparency control lever
on mouseDown
put the cursor into lastCursor
put getvMinMax(the target,the ref of cd bmp "vSlide")
into minMax
set the cursor to fist
put item 1 of the loc of me into xLoc
repeat until the mouse is up
put max(min(mouseV(),item 2 of minMax),
item 1 of minMax) into yLoc
set the location of me to xLoc,yLoc
set the inkColor of cd bmp "Ghost" to
line getvVal(yLoc, minMax, 1, 16) of cd fld "inkColors"
end repeat
set the cursor to lastCursor
end mouseDown
-- get upper and lower physical bounds for slider
function getvMinMax tabObj, slideObj
get trunc((the height of tabObj)/2) -- make it integer
return the top of slideObj + it&","&the bottom of slideObj-it
end getvMinMax
-- return a value between minVal and MaxVal based on
-- relative vertical position of val between minMax
function getvVal val, minMax, minVal, maxVal
put 1/(item 2 of minMax-item 1 of minMax) into scale
put item 2 of minMax-val into v
put v*scale into pct
get maxVal-minVal
return it*pct+minVal
end getvVal
on mouseEnter
set the cursor to hand
end mouseEnter
on mouseLeave
global gCursorNormal
set the cursor to gCursorNormal
end mouseLeave
#######
button id 12SCRP
on mouseUp
put 256 into n
repeat with i= 1 to n
put (entry i of cd palette 1 of cd 1) into temp
put i&&"---"&&temp&return after cd fld id 16
end repeat
end mouseUp
backupdata
revealcoverSCRP
on mouseUp
hide_reveal
end mouseUp
inkColorsdata
revealscriptSCRP
on mouseUp
hide_reveal
end mouseUp
This example creates the illusion of disappearing and reappearing ghost shapes using the blend ink effect. The inkColor regulates the degree to which the ink effect is applied. By resetting the ghost bitmap to a blend of both the forecolor and the bitmap's original color, the ghost appears to be disappearing and reappearing along a continuum.
The slider code is exactly the same as that used in the Animania examples.
The code is follows:
on mouseDown
put the cursor into lastCursor
put getvMinMax(the target,the ref of cd bmp "vSlide")
into minMax
set the cursor to fist
put item 1 of the loc of me into xLoc
repeat until the mouse is up
put max(min(mouseV(),item 2 of minMax),
item 1 of minMax) into yLoc
set the location of me to xLoc,yLoc
set the inkColor of cd bmp "Ghost" to
line getvVal(yLoc, minMax, 1, 16) of cd fld "inkColors"
end repeat
set the cursor to lastCursor
end mouseDown
-- get upper and lower physical bounds for slider
function getvMinMax tabObj, slideObj
get trunc((the height of tabObj)/2) -- make it integer
return the top of slideObj + it&","&the bottom of slideObj-it
end getvMinMax
-- return a value between minVal and MaxVal based on
-- relative vertical position of val between minMax
function getvVal val, minMax, minVal, maxVal
put 1/(item 2 of minMax-item 1 of minMax) into scale
put item 2 of minMax-val into v
put v*scale into pct
get maxVal-minVal
return it*pct+minVal
end getvValTAIL
-- geSOND
sound id 28TAIL
1/(item 2BMAP
<INFO
3.0b.02SCRP
on openCard
if the cardseen of this bg = 1 then -- haven't been here yet
set the demomode of this card to 0
else
set the demomode of this card to 3
end if
pass openCard
end openCard
on mouseup
--select before char 1 of cd fld "dummy"
end mouseup
on closeCard
hide cd fld sprite1
hide cd fld sprite2
hide cd fld sprite3
pass closeCard
end closeCard
on custommsg0
pause cd snd 1
set the demomode of this cd to 1
select before char 1 of cd fld "dummy"
start cd timer "PauseTimer" expire in 8 seconds
end custommsg0
on custommsg1
pause cd snd 1
set the demomode of this card to 2
start cd timer "PauseTimer" expire in 8 seconds
end custommsg1
on custommsg2
pause cd snd 1
set the demomode of this cd to 3
start cd timer "PauseTimer" expire in 8 seconds
end custommsg2
on timerExpired
if the short name of the target is not "PauseTimer" then pass timerExpired
if the isPlaying of cd snd 1 then pass timerExpired
set the bufferSize of cd snd 1 to 180
play cd snd 1
end timerExpired
on playStopped
if the class name of the target is not "path" then pass playStopped
if the short name of the target is "path1" then
set the loc of cd fld "sprite1" to "344,241" -- hide it!
endif
if (the demomode of this card) < 3 then exit playStopped
if the short name of the target is "path2" then
set the textSize of cd fld "sprite2" to 12
set the textStyle of cd fld "sprite2" to bold
animate cd fld "sprite2" along cd path "path4"
else if the short name of the target is "path3" then
set the textSize of cd fld "sprite3" to 12
set the textStyle of cd fld "sprite3" to bold
animate cd fld "sprite3" along cd path "path5"
endif
end playStopped
on moveMessage
show cd bmp "3.0b.02.P5B"
show cd bmp "3.0b.02.P5B2"
set the textSize of cd fld "sprite1" to 12
set the textStyle of cd fld "sprite1" to bold
animate cd fld "sprite1" along cd path "path1"
wait 30 ticks
hide cd bmp "3.0b.02.P5B2"
hide cd bmp "3.0b.02.P5B"
end moveMessage
on keypressed x
if the demomode of this card = 0 then exit keypressed
put "keyPressed"&&x into cd fld "sprite1"
set the textSize of cd fld "sprite1" to 12
set the textStyle of cd fld "sprite1" to bold
moveMessage
end keypressed
on arrowKey x
if the demomode of this card = 0 then pass arrowKey
put "arrowKey"&&x into cd fld "sprite1"
set the textSize of cd fld "sprite1" to 12
set the textStyle of cd fld "sprite1" to bold
moveMessage
end arrowKey
on returnInField
if the demomode of this card = 0 then exit returnInField
put "returnKey" into cd fld "sprite1"
set the textSize of cd fld "sprite1" to 12
set the textStyle of cd fld "sprite1" to bold
moveMessage
end returnInField
on enterInField
if the demomode of this card = 0 then exit enterInField
put "enterKey" into cd fld "sprite1"
set the textSize of cd fld "sprite1" to 12
set the textStyle of cd fld "sprite1" to bold
moveMessage
end enterInField
on functionKey x
if the demomode of this card = 0 then pass functionKey
This example highlights one use of the pickList object. The application produces a context-sensitive response, based on your selection of a specific cell from the table. After you click on a cell, the application displays the first message of Mysterio thinking, pauses, and then displays his "guess" of what card, or cell, you selected.
This example builds on the previous one. In addition to causing the bumper car bitmap to follow the cursor, this example demonstrates switching the car's direction based on cursor movement. The effect is that the car turns and faces whatever direction the cursor is moving, just as you'd expect a real bumper car to move.
To produce this effect, eight different bitmaps are used: north, northeast, east, southeast, south, southwest, west, and northwest (abbreviated n, ne, e, s, sw, w, nw). The script determines which bitmap to use based on the cursor's direction of movement, and displays the bumper car.
The code appears as follows:
on mouseEnter
hide cursor
put the mouseLoc into lastLoc
put "196,148,443,332" into arena
repeat until the mouse is down
put the mouseLoc into curLoc
put getNewDir(lastLoc, curLoc) into dir
if curLoc is within arena then
set the loc of me to curLoc
if dir <> "" then put cd bmp dir into me
end if
put curLoc into lastLoc
end repeat
show cursor
end mouseEnter
function getNewDir l1,l2
put 3 into minDelta
get item 1 of l1-item 1 of l2 -- x delta
if abs(it) < minDelta then put "" into newXY
else if it < 0 then put "e" into newXY
else put "w" into newXY
get item 2 of l1-item 2 of l2 -- y delta
if abs(it) > minDelta then
if it < 0 then put "s" before newXY
else put "n" before newXY
end if
return newXY
end getNewDir
< 0 tBMAP
MINFO
3.0c.11SCRP
on openCard
put the period of cd timer "demo" into p
start cd timer "demo" expire in p ticks
pass openCard
end openCard
on cleanup
stop cd timer "demo"
end cleanup
mainsoundfile
30c11
screentype
nextobjcard
3.0c.11.P1data
@EEDDD?C?DD?E?DD?DDDDEE?CEEEEEC@CECCEEEEDEDDDED?
M?EDDD?EEDDEEDDD?DDDD????DDDEEEEEEDDDDEDDDEEDD??
>ED::?EEDD?DDDDDEE@EEDDEDEDDEDEEEEDD?
:D?DEE?DDD??EEECE?EEEEEEEED?D?DD
@DDED?DDDD??EEEEED?DE??EED?D?ED?
DQ DDD??DDDED?:DD?:@EEEEE:D???EDE??@?ED
_JKO14J
OjJq{zNJK
E?=QD;
D:>D;
E?==?<
DC>D;
C???E=
DD??;
EC?EC<
E?E?<
@=@DD
C??EE=
DEE?$
Q Q @@
E????
E?EDE<
DECD;
DDD@?:
QE???D
E?DDEB
?EED;
C@CDD
???EC$
DEED;
DE;PD@
@EEED
???E=
=??D?
?EDEEEDD{
EDEEEEEEEDDEDDDDDDD?DED?DEDEED?EEEE?E?E?EEDE@?D?
E?EEEEED?EDEDD
DD?D??D?D?E?EEDE?E??DE?EEDEEE??DD
Gigi:POMOCD:Presenting OMO
:Audio:30c11.aif
3.0c.11
mainPROP
flashbtn
bg bmp done_litTAIL
3.0c.11.P3data
DDD?E??DD
EEEEE??D?
3.0c.11.P4SCRP
-- Card 3.0c.11 logic for timer demo lever
on mouseDown
global gCursorNormal
put 200 into ymin
put 320 into ymax
set the cursor to fist
put the location of me into myloc
put item 1 of myloc into xloc
put item 2 of myloc into yloc
repeat until the mouse is up
put the mouseV into yloc
if yloc > ymax then put ymax into yloc
if yloc < ymin then put ymin into yloc
put xloc&","&yloc into myloc
set the location of me to myloc
end repeat
-- now, mouse is up, and yloc contains level
set the cursor to gCursorNormal
set the period of cd timer "Demo" to ((yloc - ymin)+10)
This example illustrates a use of custom properties. It uses the same newObject handler as the previous card with one additional line, a call to setCondiments, shown below.
The application stores your condiment preferences in the custom property condiments. After you create a hamburger bitmap, click on the object to display a message window listing your condiments. The doubleClick message is what triggers the message window.
The script appears as follows:
on setCondiments obj
add property condiments to obj
put the hilitedRows of cd lst 1 into rows
put empty into str
repeat with i=1 to the number of items in rows
put (cell item i of rows,1 of cd lst 1) &", "
after str
end repeat
delete the last char of str
delete the last char of str
do"set the condiments of"&&obj&&"to str"
end setCondiments
TINFO
navscreen
s5.0bkgd
done_downEXTI
doneSCRP
on mouseDown
global gCursorNormal,gCursorButton
hide me
put true into pressState
repeat until the mouse is up
if the mouseloc is within the rect of me and not (pressState) then
hide me
put true into pressState
set the cursor to gCursorButton
else if the mouseloc is not within the rect of me and pressState then
show me
put false into pressState
set the cursor to gCursorNormal
end if
end repeat
if pressState then
show me
buttonpress (the short name of me)
end if
end mouseDown
on mouseEnter
global gCursorButton
set the cursor to gCursorButton
end mouseEnter
on mouseLeave
global gCursorNormal
set the cursor to gCursorNormal
end mouseLeave
done_litEXTI
options_downEXTI
@DDDD
G@G@@
@D<AA
optionsSCRP
on mouseDown
global gCursorNormal,gCursorButton
hide me
put true into pressState
repeat until the mouse is up
if the mouseloc is within the rect of me and not (pressState) then
hide me
put true into pressState
set the cursor to gCursorButton
else if the mouseloc is not within the rect of me and pressState then
show me
put false into pressState
set the cursor to gCursorNormal
end if
end repeat
if pressState then
show me
buttonpress (the short name of me)
end if
end mouseDown
on mouseEnter
global gCursorButton
set the cursor to gCursorButton
end mouseEnter
on mouseLeave
global gCursorNormal
set the cursor to gCursorNormal
end mouseLeave
@DDDD
reveal_downEXTI
revealSCRP
on mouseDown
global gCursorNormal,gCursorButton
hide me
put true into pressState
repeat until the mouse is up
if the mouseloc is within the rect of me and not (pressState) then
hide me
put true into pressState
set the cursor to gCursorButton
else if the mouseloc is not within the rect of me and pressState then
show me
put false into pressState
set the cursor to gCursorNormal
end if
end repeat
if pressState then
show me
buttonpress (the short name of me)
end if
end mouseDown
on mouseEnter
global gCursorButton
set the cursor to gCursorButton
end mouseEnter
on mouseLeave
global gCursorNormal
set the cursor to gCursorNormal
end mouseLeave
prev_downEXTI
JYHH[[HUUKKHUHHKUKKLhHL
ILiDDDODDDDDODOOOOiiOOKUJ
Il8OLLKULKhLKKKUKUKKKYK[]
bO8UKUUUUUKU,
#PUUhU8[#
POlLUKUKhUKUUUUK,IJKUKUi*#
O0UUUJLLhKKKLKUhKJhHhHlg
2#O[UKKLUhLKUUKUJJKhKKKK]K#
HJKUKUKLJUUKUhHJhKJhJh4Y
J[[iikk[k[[[[H[[[[ol0k['#
!||w|-||
w%KS!w%-0
K.6666.6...." '
######
+BiO
INFO
prevSCRP
on mouseDown
global gCursorNormal,gCursorButton
hide me
put true into pressState
repeat until the mouse is up
if the mouseloc is within the rect of me and not (pressState) then
hide me
put true into pressState
set the cursor to gCursorButton
else if the mouseloc is not within the rect of me and pressState then
show me
put false into pressState
set the cursor to gCursorNormal
end if
end repeat
if pressState then
show me
buttonpress (the short name of me)
end if
end mouseDown
on mouseEnter
global gCursorButton
set the cursor to gCursorButton
end mouseEnter
on mouseLeave
global gCursorNormal
set the cursor to gCursorNormal
end mouseLeave
JYHH[[HUUKKHUHHKUKKLhHL
ILiDDDODDDDDODOOOOiiOOKUJ
I[H[UULVUUKUUUhKUH[[[HL[K
Il8OLLKULKhLKKKUKUKKKYK[]
#iioLhUKUULhKhKUJJJJKUKo0
#iO[LKLhKUKLUKKJI
JUhKU[k
i8[KJKKKUUJKUb
IKUKU8[
IiO[JUhUUKUKJs
#IKUKUiH
IOO[KKKhKJ
PKKKUZ/
,ii[LUKKc
IJKUKi[
ciOLKK\
#IKUUKZ/
'iOKUc
#IKUKUiH
eiOKU#
#chKUK[[
cOOUKJ##
#IKKKL[+
iOKUKUI
#IKJUU[[
eOOUKKULJ
#YUULi4#''.
IOiLhKKKULJ#
JULUk[
bO8UKUUUUUKU,
#PUUhU8[
OiULLLLKKKUKKJ
JKUKHi*#
POlLUKUKhUKUUUUK,IJKUKUi*#,'6
O0UUUJLLhKKKLKUhKJhHhHlg
2#O[UKKLUhLKUUKUJJKhKKKK]K
HJKUKUKLJUUKUhHJhKJhJh4Y#
J[[iikk[k[[[[H[[[[ol0k['
IRTKJ7JJJ'','e''I,J'cJc#
'77''''''','',
,,'','
,".666.66.6.66..6....""
......
66.66.6.6K
6.... '
next_downEXTI
KULKKUUKKUUKKKUKKLhHLP
&m'#'>
I8[KJKK#
JJJUKKUUOU#
||0 2
.....
44
nextSCRP
on mouseDown
global gCursorNormal,gCursorButton
hide me
put true into pressState
repeat until the mouse is up
if the mouseloc is within the rect of me and not (pressState) then
hide me
put true into pressState
set the cursor to gCursorButton
else if the mouseloc is not within the rect of me and pressState then
show me
put false into pressState
set the cursor to gCursorNormal
end if
end repeat
if pressState then
show me
buttonpress (the short name of me)
end if
end mouseDown
on mouseEnter
global gCursorButton
set the cursor to gCursorButton
end mouseEnter
on mouseLeave
global gCursorNormal
set the cursor to gCursorNormal
end mouseLeave
KULKKUUKKUUKKKUKKLhHLP
iOiOOODOOODDDDDDDDDDO[UJ
IO8kokkk[kk[U[i[UZ[[[i0ZL
IiULLLUKLLLLHUKLKKLLUL[kU
#O[HUKKUKJLhUKKUUKKUKL[OZ
#OfUKKJJ#
cLKhJKKhKUKL[OH
IO[HLhKc#
PJLhLhLUUKK[D[
Ik[UKUUI#
\LKKKKUUKLOZ
I8[UKUUI
IUKUhKKU[O[
IOHLKLLI
tKHKJKL[O[
c8hKUKUP
YKKhKHiL
,iUUKUKP#
cJUK[O[
clHLJhKI
cUL[OZ
,OUhKKKI
KU[O[
ei[LLhUe
eKKUO[
e0[UKKKe
cKUhKi[
Ik[LKhLI
PKKKULUiH#' .
I8[KJKK#
JJJUKKULOU
i[KUJJP
JJJKKhKUK[O[
I8HUKhK
PKhKhUKULhL[iH#''
POYLJLh'
PJKKULLKUKKKK[OU
O[hJKKUKKULhKhKhKKhVKHOH
#lHKKhKKKKKUKLKLUKUKKUhO[
LJJKLhUUUKhKhLKKKKULLYO[
[[Zi[[[o[[[ikkZkkZko*[*K
e,\R'I
cJJ''YKYKY3RJHgYY
77777'7',,'''',
K ...7..6."" "
.....
.6." K.6.... ""
######
#####
next_litEXTI
VZZZZZZZZZZZkZZZZZZkZc
DOiOOOiOOiiiDikiiiiDOkZ
iiZZ[ZZUZZkZ[ZZZZkZZO
IDiiZZZK#
I[ZkkZZZZZZi
cDiZZZZc
H[ZkZZ
cOiZ[ZZ-
eDiZ[ZVc
ZZiDi
cDiZZZZR
cZZZDi
DiZkZiR
JZZZZ
eDiZZkZc
IUVVZZZDZ
IDi[[[Z-#
KZZZ[ZZZDi#,
eDiZZ[[b
YVVV[iZiZi
IDkZZk[1
eVVZ[ZkZZZki
kk[ZZK
PKVZkZkZZZZZZi
DiZ[[ZZZZZkZZkZZi[ZiZkDZ
PDiZ[Z[ZZ[ZZkiZZiZZ[ZiZ
O#''.
#ZZZ[ZkZZZkkZZZZZZZZZZkDi#
OOODOiDDOiODDDDDDDDDOOO[
eY][YRRg[HHH[k[[[o[[iki[J
77'77'',,''7'
666.."..77.....
....K
6.""......" " "
.66."76
.6...
'
ttttttt
ttttttt
ttt?t
ttttttt
tttKt
?tt??t?K
?Kt?KttKKtK
tKtK?
?tKtKt
tttt?ttKKtKKK
?tttt
tKttKKKt?
tttttKt
tKKKttKK
qtKKq?
Kt?t?
tKKK?
q:qqq
qt:qKt?
?KKttKtK
ttttttt
KqKqqKq
qKKKK
t?ttt
:q:qq
tttt?
?ttt:
tttKqtq:
AKKKK?
qt{{{
Ktttt
tttKttKtt
tttttK
?tt?t
qKKt:
tqqqq:
q:KqKq?
t?0tv
t?t0tt
K?t{ttt?
ttttKt
Ktqtq:
:qtKKttKttt
55??t?
KKKt?t
{{{{{
ttKKKt
t{?tt
?tttK
t?{~?t
ttKtt
tttttKtK
Kqqqqq
VnFU~
ttttt?t
?tttt
tttttt
tttKttKtK
KKqKK
tKtttt
tttKtKKK
ERfh`
tKttKtttttKtKtttKtt
{{{{{{{{{{
ttttt
R96<F
qqqqq
qqqqKqqq
m(,(Z
ttK0t
tKt{t
gg8:^V
??tt?tt?
t?tttK?
:qqKKK
qqqqq
v):>E
?Kttt?
ttttt
tt{KtK{?
|z49#&;-
UBB^]
^::a^^
tgttt
ttt{?t?
}o:0h
LY?hGE:_
KtttK
~{tttt
ttttttt
?d:{A
tKKtttK
ttt?tttK
*h:#m
")99&
t?tttt
Kttt?t
?{Ktt
?ttKK?
14hK(76
6<=!'
(}o1(
qqqq:
`A)i%
F<9_\
?tttK?
tKKtttK
tq?KtKt?
KttKK
ttKtKttt?
tttttt
qKKqqq:
q:Kq:qK
Kttt?ttKtt
tttttt
tKtttt
?ttKK?
?KKtt:
qKKqKK
z>A&"
t?ttK
q:qq:q
qqKqK
2:k:i6
?tKttK?tt?tt?
ttttttt
qtKKq
6<-)M
0)~F0
?:???
~qK{A{A
t?tttttttt
ttttt
tqtKqKK
Kqqqqqq
bPkTm"
::'=?
tKKtKt?
Kt?tt??tt
!v!vvWRvv0W
!WRvjRvj!vZWvW
ttttttt
KtKtK
-=:".
>=>3>
ttK?ttK?
tttttK
Kttttttt
KKtttt
tKKKt
tKKttK
:qtKtKt
KKKKK
Rvv,ZZZZ,,,
,,{,W
Ktt{?
Kttt?
Ktttttt?tt?Ktt?K
!vZZW,
ttttt
K?ttK?
<[X&-
?{?K0
tK{tK
q?ttq:?q
)$<!8
::{?::
tK?ttK?
,::,:::
t{tK{{
Kt{~KtKtttK
{?Kttt?
h)2P3,
vv!vZ
,:,:::
ttKtttK
ZZ,,+
tKtttt
~rxN3@_
ZRZy+
qqtqt
K{Ktt
{0K{0K
tttttttt
sxgHm
}G}+::
{?ttt
GZ*D7]?
V,++==
q0K{{KK{
t{Kttt
tKtt?tttK?
{{?{D
?1Z..>^
+4,8;9
m t{)x
7XaS0_^
?{{{{{
s#uwA+
gl}mgl}m|
4.8)!
DD{{?{{{{z
h|h}|
tKttKKKt?
^@jDo
: {DD
{{{{{D
{KttK
KtK{KK0{KK
?tKtKtttt
KttKKt
{{{D{
8=842
z{D{{
tttKtKtttKtttttKttKtt
{{{{{{
=<429:47
{{{{{
{zz{{{{D
bqttq
Ktttt
tttKtttKttttKt
z{{z{z
::,88:
{zz{{
KtKtttttttttttKKttKttK
?tttttt
{D{{{{
{{{{{
{{{{D?
':4=2
WUWUW
{{{zz
{{C{{
z{zzz{
{{z{{
=+AqZR0
?tttK
z|zzz|z
{{?{{{?
{{{{{
<<<<<
{{{{{
z{||z||
ttttt
{{{{?{{
{{{{{{{{{{
{{|||{zz
{{z{{{
{{{{|z
dqdqb
|zz{{{
|||{{
{{{{{{{{
{{{{{
EmYu!"
{{{{{
+qRZR
ttt?ttttttKttt
{{{{{{{
|z{{{
dqddd
ttttttt
tKttKt
{zz{z
|{zz{
G}iUHGGo7
{{zzz
ttt?ttttttKttKttK
ttttt
z{{{{
{z{{{
{{D{{{
GWiWW
D{{z{
zz{{zz{
ddddddqdd
W:GW:}Z
WGEUWGm
z{{{{
=+=PRR~-
ttttttttKt
:WWZW:
EG}:G
{{{{{
zzzz{{{
ttttt
tttttttt
{{||{
WmWWWGbW
UWWEGUEU
{z{zz
zz{z{
q{qqqdd
ttttttt
ttt?t
{{{z{{{
{{{{{
{z{z{z
{{{{{{
XYrrs
ggtgng g
Ktt0?
{{{{{
}|n}{
==+q{VR
{{{||
U.EEE
z}}{}i
ww0G}
{zzzzzz
qqqttgtg v
ttKttttKttvtt
tttttttt
z{zzz{{
{{{{{
UWWUW
0UErr
''k}z
.DUG`W
ttttvt
tttttttttKtK
{z|{{
(&r{r'}}}}
}|y~_
dda?b
{zzzz
&YUs**D
zz{zz~
tttttttt
tttttKtK
zz{{z
GWUWUEE
t?ttt
ttttttttttttK
z{z{{
{{{{{
{zz{z
EWG"u}
{{zz|
ttttKtKt
:WWGEW`
iEGWLEGE
{{{{{{{{{{|
|z{{{
zzzzzz{
{{{{{
z{{{z|{
zz|{z
{{{{{{{r
}}zzz
z{zzz
{{{{{
{zz{{{
{{{{{
{{C ry
~&YsKj
srZ$p
{zzz{
+qZZR
tttttt
tttttttKt
zz{z{
{{|rry
*EwG@
:GWWZ
Z}}GoE
zz{{{
|ryy
tttttt
ttttttt
{{{|{{{{D
{{{{{{
{z{zz
UW:ZEZb
zzz{z|{{z
EZ*}G
{{zzz
fffdddd
?ttKtttt
{z|zz
{z{zz
|z{z{
{{zzz
{{{zz
`Hi}U
{{z{{{
%gf gdd
tttKtttKt
99988
zzzzzz|
B{{z{
zz|zz{
zz|zz
{z{{{z
gg nff
{{z{{{
}ZW*}G`
U'r{}
zz|zz
{{{{|zz
ttKttKqtqqq
zzzz|
WU}Uos'
{{{{|z
-,{ZZWv!v
ng gd
{{{zz
'{z}{
z{{{z
|{{{{|
{{{{z
z|||z
ybyb}b
z{}~rYry}
{{{||
ntbggn
{z{{{{
{{{{z{{
{z{{{
ddx{{
<><<<<<<
{{{{{
z{zzz
{z{z{
{z|z{
z{{{{{{
{zz{{
{{{z{
|z{{{z
z{z{{
{{{z{z
zzzz|||z
z{{zz
{{{{{{z
z{{{z{{{
><<<<<
{{{{{{
{{z{{{
{{{{{
{z{z||z|zz
{{{{{
z{z{zz{{
bbl2l
{{{{{
z{zz{z
z{{{z{
~~z}}
bbgbnb
zz{|z|
zz|z{
b b
{{{D{
zz{z{
bgggg
{{{{{
ddbb2.B
{{z|zz
{{zzz||
{z{zz
|{{{{
|||||
gdbbbl2?
{{z{{{
fddbbb22
{{{{{z
z||{{
{{{{{
{zz{zz{
{zz{z{
gdbbb2
zzzzz
z{{zz
|{{{{
)b}gggg
dbbbbPl.P
{{{{z{
{zz{{{
z{{{{
{{zz
{{z{|
~z}}}
{{{z{
{zzz{z{
~zz}}}
{{{{{zz
{{z{{{z
~zz}}
~~~~z~z
zz~zzz
zzzz{{
zzz{{
z{{{z
{|{{z{
z{z{z{{
{{{{{
z}z}}}
{{zz|
{{{z{
zzz|z
^b^bb
|{{{z
z{zz{
{{zzz
z{{{z
^^^b<
}~~}y
{{{{{
|zzzz
{|z{z
|z{{?
zz{{{
||z{{{{
A}}b<
}}z}~
zzzzz
{{{{{
z||zz
{{z{{
z{{{{{
^}abb
zzzz{|z
zz|zz
^b^b~bb<Pb
<Sb<bP
{{{{{{{
^^llb~^Pl<2<
d^aa^ab<ab
z}zzzz
{zz{{
z{{{{
z{z{{
%%%gglg[
BlBBlB
aabaaa
aaaaa
{zzzz|
z{zzz
zzz|z{
dbbbbg
gaaaa
aaaag
z{z|{
[ [ [ [
bggaaag
aaada
{{{{{
D{{{{
|zzz{z
88808899R0[ [0
ngggggg
)8)88
99999Z9b
Pb2~.
))8)8
9b99999b
gggnfg
|zz{|
{{{{{{{
gn g gf
{z|z{
{{{{{z
{{{{{
nggg g f
{{{{{{{
{z{{{{
{{{{{{
g gef df
{z{z{
))))8
fdgda
z{{{z
gdgaggba
{z{{z
{{{{{
g ffdf
9/9//
{{{{{
{z{{{
zzz{z{{
|{||z
{{{z{
<<<<<<<<<<
{{{zz
{{{z{{
{{{{{
{{{{|
/j{/{-{{T
/{/{{
{{j/jjT{{{/
{/{/{{/{
<<<<<<<<<<<
{{j{{j{Tj{T{{j
dbbbg
{{{{{
{{{{{
jjjj{T
TjTj{/j{T{/{{{/{
<<<<<<
{{zzz
>jTjTjT>
T{/{{//{{
{{{{{{
{{{zz
D{{{{
Tj{/>
{{{|{
V{T{V{Tj{{>/{{/{
||zz|
z{{{{
{{{{{zz{
>jjTT
jj{T{j{>{{{
dddddd
{|zzz|
{{{{z
|||zz{{{{
jj/E-{
{{{{{{{{
|z{z|
TVjVTj
TVj{>{T
-{j{-jT
|{{{z
z|z{{|
zz{z{
{|{{{
z{{{{
z{{zz
GV{T{jj{{j{Vj{
>j{-{j{
<<<<<
{{{{{z
{zz{z
jjTVV
jjjTj{-{j{>{
<<<<<
<<<<<
|zzzz{
VV{TjTjjjj{j{jT
<<<<<<<<<<<<<<<<<<<<
{{|{{
|{{D{{
zz{{{
<<<<<<<<<<
{{{zz
{{{{z
VjjTjT
<<<<<<<<<
<<<<<<<<<
{{zz{
{{{{{
VjTEjjj{jj{>{
<<<<<<<<<
z{{{{
{{{{z{{
<<<<<<<
zzzzz{
{{zz{zz|{{z
VjT{jTj{j{
<<<<<<
{V{j/{
z{|z{
{{|{{
TjT-{jT{/
<<<<<
z{zzz{{
zz|z|
{zzz{zz
{{{{{
TjTjT{/{
z{z{zzz{z
{{{{z
z{{{{{{z
)){){
<<<<<
zzzz{{
{{{{{
z{{{{z
|zzzzzz
!){{{{
jTj{T{T{/
<<<<<<
zz{z{
/jT{/{T{{{
|zzzzz
z{zz{{
zzz{{
!{{{{{{
/{/{{{/
zz|{{z
{{{{{{j
)!!WW
<<<<<
{{{{{
{{{zz
Zjj{jj{j{j{
<<<<<<
{{z{z
!!!!!Z!{!{
<<<<<
<<<<<
{{z|{
zz{zz|
.{{{zz
{{|z{z{{
z{zz{{
{{{{{{{
z{{{z
!!!!!!
{{j{{
<<<<<<<
<<<<<<<
z{{z{zz
j{{jjj
||zz|
{z{z{
{{{{{
{{{{{{
!!W!!WWW
80!880
)8))8
<<<<<
<<<<<<
||z{{
{{{{{{
{zz{z{
zzz{z{z
F!WWjW
0880)0!!
<<<<<<<<<<<<
{{{{{{
{{{{{{z{
{{z{{
{{z{{
!!{0!0000808
800008
8080888
{z{{{
))z)!
)WR)!
8W0W!!080880808080
80808
zz{{{{{
8RW0~
8880)
808080
{{{{z
!!!~!!W8R!!
!!!))
)))88)
zzzz||
z{zz{{
)-8-8
z{|zz
z|zz{
zz{zzz{
zzzzz{{{
{{{{{{
{{{z{
{||zz|
z{{{{
!{zD{
{z{{{
{{{zz
zzz{z{
z{{{{
-))))-)
-------
{{{z{
-----------
{{{{{{
)-)----
-------
zzzz{
{{{z{
|{{{{
{{?{zzz
{{{z{{{{{
{{{{{{
{{{{{
|zz{{
-------
{{z{|
--------
||zz{{{
{{{{{
z{{{z
-----
{{{{z{
{{{{{
zzz{{
{{{{{
{{{{{
{{{{{
z{{{{{
{{{zz{
{{|{|{
{{{{z{{{
{{{{{{{
z{{{{
<<<<<<<<<
{||{|
z{z{z
|{{{{
{|z{|
{{z{{
{zzz{{
zzzz{
||zzz|
zz{zzz{z{{
{{{D{
{zz{{
{D{{{{z|
{{{{{z
<<<<<<<<<<
{{{{{
|zzz{{
{{{{{
zzzz{
<<<<<<<<<<<<<<<<<
z{zzz{
<<<<<<<
{zzz{
{{{{|z
z{{{{{{z
z|zzz
{zzzz
<<<<<<<<<<<<
zzzzz{|
||{{{
|{z{zz{
zz{{{{
{{{{{
<<<<<<<<<<<<<
{{{{{
<<<<<<
{{{{{{
<<<<<<
<<<<<<<<<
{{{{{
{{{{{
{{{{{{
z{{z{{{{{
{{{{{{
{|zzz
<<<<<
<<<<<<
<<<<<<<<
zz|||
)z~!v!
<<<<<
|z{|z
zz{{{
z{{{{
vW!v!v!v!
------
<<<<<
<<<<<
<<<<<<<<<<<<
z{{{z
zz{{{{
!v!vW)Z
#----
{{{{{
zzz{z
{{{{{
!~0vW,8Wv{
------------
<<<<<<<
<<<<<<<<<<
<<<<<<<
zz{{{
{{{{{zz
{z|zz
WF0FFZR!
----------
z{z|{
z{{||{
vjF0Z
--------
<<<<<<<<<<<<<<
{{{{
{{{{{
{zz{z
{{z{zz
zzz|z
FFZF0
<<<<<<<<
zz||z
{zzzz
{z{z{
{{{zz
WFFFFZF0v!
---------
{{{{{{
{{{{{{{
{{{{{
!~FFFj,jF0v!~
,jF8!
{>j/j
{{{{{z
{{{{{
{{{{{
|zz{|{z{|z
0FFFFF~W
{{{z|
|zzzzz
{||||{z
{{{|{
Wv!vjFFF0Fv!
------
889889
zzzz{
{{{{{{{
{{{zz|
WFZ0FF
)-)<))8
bb>b>9>99998
{||{z
z||z{
!vW0v0Fv8W~
999[9
{{|{zzz{
{{{|{|
!~!vW0v0W
z{{zz
{{{{{{{
z|z{zzz
{{{{{{
{{|||z
WWv!v0!v!
zz{z{
{{{{{
{{{{{{{{
{{{{zz
{{{z{
{{D{{
WZWZ!{~Z
{|{{{
W!),WR
{{z{{
{{{{z
z{{{{{
WRvW8
z|{z{z
{{{{|
)~!v)WZWFFZ0,8!
{{z|z{
{{{z{
zz{{z
zz{z{
{{{{zz
{{{{z
{{zzzzzz
z|z{|{{
vR-W~)
~W!vRW
{{|z{{
|{{{{{
!vWW)Z
v)vWWZZ{,jZjFZj~Wv!
{{zzz
zzzzzz
{{{zz|
z{z{{
{{{{{
zz{{{z
v{vWv!,!~RvR!
vWWWFZ
jj,jjFFWv!!
)~W)~W
{||{{{
{{z{{{
|{{||
Z{,W,WW,!ZWZW,W,jZ
j,jWWZW~Wv)Vv
!v))v!
!v!v)
)Rv!~W
{{{{{
j,j,{,WZ,{W
j,{Z,WWW~{v!WvRW,!vWWW,W,R,!vW!v!
{{{{{
{{{{{
{z{zz{
|||z{z
zzzz{
898382
ZjW,W,WWW,!,W,!,,{,j,j
F{,{vWW
|{||{
{{{{z
|{zz{{{||
{{{{{
j,j,j,{F,{,{,{
j,b,b,
j,{FZWZ!ZFZ0ZZR
{ ?{{r
,,j,j,jvb
||{|{
|z{z|z
zz{{zz
z{{z{
y##n##
{{{{{{{
#########n
{{{|{{{{{
{|{{{
w#5n:
5#:###
MM#M#n#
{{{z{
{{{{{{
####5#[#MM5
#[:5[#5
#####5
:5[#[M
:M#n##n#
|||zzz||{
{{{{{{|{
{{{{{{
{z{{{{
##55MM
M#:M#5w
n:M#M5#
#:#:#5M:[M
:[M:M#MM
MnM#nMMnM
{z{{{
#5#M:
:M:5M
:#M5#5##
[MM:MM##M#Mn
{{{{|
z{{{{|
{{{zz
z{{{{{{
M55#:
MM:M:M#:MMn
)))))<)
{|{{{|{
{{z{z
|z{{z
#[#5n[
#55M:5M#5
wMMMMMMMMM#
------)
"zzzz
{z{{{{{z
z|z||
{{{{{
{||||
n[5M55#M
[5MM5MMMMMMM[MM
-----
{{{zzz
zzz{z{{{
!WFjj
5M[5:M5M
5M"5M[MM[MM[MMM
{z{|{z{z
{{{{{zz{
{z{{z
|{{{z
{{{{{
{{{{|
[[[M[M
-------
z{{{|
{|{z{
{{{{{
5M5#[5
z{{zz
{z{{{{
z{{{{
o[[[[[["oM[
-----
zz|{{
DD{{D
M4[[4[4o4o4M4o
{{{|z
[4[[44
{{zzz
|zz{{
{{{|z{
zz{{{{
{zz{{{
!ZZZ{
zzzzz
z{{{{
{{{{{
|||||
W!W{Z
+::::#::5:5#
------
zzzz|zz{z
{|z{z
{{{{{
zz{{{{
{{{z{{
-vWWW,{
+:+::
#:,#5
|||||
{z|zz
z{z{{
{{{{{{
-vWWW,{
~z|{|
{{{{{
{{z{zzz{z
{{{{z
zz{{{{{{
z{{||z{
|{zz{{
[5[5M[
"[["4
-----
zz{z{
--------
{{z{{
["[""
---------
||{{z
{{{{|
|z|{|
z||||
44444444444
["[4"4"
-----
{{{zzz
zz{z|
{z{z{
M[[[[
["[[4["
|{{{{
{{j{jjjjjjjjjj
:,n5[
44444444444[
zzz{z
{{{{{
)jj{j{j
jjjjj
5,M,[
4444444
{|{{{
ww,[[[[o444
444444444[
[M"[[["""[[
z{z{{
z{{{{{
j{{j{
w[,[o444
"[M["
z||{{
{{{z{{
{{{z{
{{{{{{{{{
{{{{{
nP,wo
M[M[MM[M
["M[M[
{z{z|||
{{z{{{{{{{{
IPwwwwo,
444[[
zzz{zz{
|zzz{
z{z{|z
z{z{{|{{
/bMMMMMI
444444[
MMMM"M
z{{{{|
zz{z{
{{{{{
{{{zz
{z{{{
{z{z{{
IMIMn5w
[4[4[
[[[M"[
M[M[MMM[M
z|zzz|
zzz|zzz
zzz|z
{{{{{
{|zz{|z
z{{zz
{{{{{{
{{{z{
{|z{{{
/>>/>>>/
///M>
+M\MI#|n
wIo4,
M#M[[MMM
z{{{{
zzzz{{
zz{z{
MII#|
w[44[[
[M5M,MM
|z{{z{z
z{zz{{
-/////
#|www[[
":MM[MM
{{zzzz
{{{{z
vRW~~
{z{{|
{{{|z
z|z{z{|
|{{z|
||zzz|zz
{{{zzz{z
,,[w[
[[M[5
ZRW~W~)W
z{{{|
|z{{z|
|zz{z|
[[[[[[
[M[M5M
!vWv{~Wv!v))v!)
zz|zz
[[[[M
[M5M5n
v!v!vWvWW
WRW)~!))
zz{|{
z{zz{
{|{{|z
{zzz||
www,n
~{v!vWv!
!vWWW
!,RW)v!
zzzzz
zzzz{{
{{{{{
{{{{{|z
[#[#M
)WWv{v{vWW
z{{z{z
|z{z{
{{{{{
[MnM:M
WRW,!,!,WW,WW,WZ{
{{z{{
{zzz|
{{zzz
!WRWvW{
W,W,WW,{,,W
W,W!Z!
{{{{{{{
{{{{{
{z{z{
{,W,,{
,{,{ZW!
z|{{z
zz|||
{{{{{{
{{{z{
{{{DD
W,{,W
|||||
{{{{{{{
||z{{
{{{{z
{{z{{
Wv{,{,{,
,{,{W!
z{{{{{{z
z{{z{
44444[[
W)vWv{,{,
D{{{{
v!,W,,{
{zz{zz
|zz|zzz
{zz{{z
|w5[[
444444[
[[[5[#
{{{z{
{{{{{{{
z{{zz
{|||z||
//////////
z{z{{|{
{{{z{{
z{{|zz{
zzzzz
{zzz{
{z{{|zz{
{{{{{
zzzzz
{{{{{
//////
[4444444"
{{{z{{
{{{|zz
{{{{{{zz
>/////
[444444444"
,{v{W)!
||zz||
|z|||
{z{|{
z||zzz
zz{|z|
{{{{{{{
zzzzz
zzz|z
,W,W!
{zzzz
zzz{{
|||z{{{z{z{
{zzzz
|{{{z{
{{{z{{
>>>>//>
>/>>>>
WvZZZ
,W,{,,{,
zzzzz{z
{|{{||{
zzz{{
{{|{{{{
{{{||
{{{{{{
>>>>>
vZ!,{,,W,,{,,
z{{{{
{{{{{
>>>>>>
>////
44444
WZ,W,W,Z,Z,
{{z{z|
vvWvWW
W,v{v
Z,Z,W
z{zzz
'zz|z{||
z{{{z
WvWvW
ZvWvZvv!-~
zzz{{z
{{z|z{
|{|zzz
{zz{{
{{z{{{
)8))8
/////
>>>/>//{/{
,::[55[
z{{zz
|z|z{||{
{{{{zz
{{{{{z|
{{{{{{{
{{z{z
8888))8)88)
/>/--/>
-----
{zz{z{zz|
z|{z|
{z{|z
{{z{z{|z{
{{zzz{
/>//-//>/
{z|{z
{{{{{z
jj0j0000!88)
#555M
|{{zz
{{{{z
)jjjj
jj0j!Z!
{{{{{
bb{b{
-----
zz|z|
jjj,jFFWv!
9 [99[
#5555
zz{z{
z|zz{z
jZF0W)v!
[[[[\b
#555#
{|{{{
{{|||
j,j0,vWRW
Z [[[[[
#::5::5
{{{{{
z{{{z
z{{{|
FjFZWvR)
|zz{z{zz
{z{{z{
R,{0Fv
{{{{{
R,WvW
z{{z{
)ZW~W!
!8ZvR
#nM##M
z{{z|z
|zz{{
W8ZR$
5:#,#
zz||{
{zzz{
{{{{{{
{|zzz
{{{{|
v0ZR$
{{{{{{
z{||{
{||zz
{{{{{
||||||{
z{{|z
555::
{|zz{zr
{{{{{{{{{{
{{{{z
!FF$$
:5=:#
5#:55#
5555[:[
r{||z
||{{{
3{{{{{{z{{{
{z{{{
{{|z|
!v)F0
5#55M
{|{{{||
|z|z|z
{{{{D
z|z|{zzz
))RRR
+b$###n
{{{{{
z|zz{
~)),jZj$
5:::#
::::#
::#:##55#
|zz{{{
{{{{|
)!~W)
#5#5#,5:
,#:::
+:+:+:::
:#::#5##55
{zzz{||z
zz|zzz|z
<{{|z
zz{{{
{|zz{|
0j,jb
zzz{z
H{{{{{{{{{
zzz|z{
{z{{{{{
D{{{?
{{{D{{
|zz||
z|||z|||
zzzzz|
{{|zz{
zzz{z|
|||{|
)W)!{WW0j
{z{{{zzz
zz||z
{{|z{
{{{|z
)--)-
-))))))
W!!{WW0
zzz{z
zzz{{
z||zz|
{z{{{{
)))-)
z{zzD
{{{{|
-))-))
{j{j{F{Z{F{ZjF{Z{ZjZjjZj
)))-)-)-
zz||z
{zz|z{{
{{{{{{
W0!WW!WWW!FW)ZW!F
0F!FZ0jZj
-)---
{{{{{{
{{{||
!W!v!W)v!~{~WW
!v!Wv!F!FZjjZ
-----
{{|{{{
zzz{|z|
{zz{{z
zzzzz
!!!)!!
!v!v!v!RF0jZj
z|{zz
{zzz{z
z{z{z{
{{{{{
{{{{{
{{z{|{
{zzzz
--------
%------
||{{z
{{{{{
|{{{{{
{{{z{
|zzzz
zz{{z
zzzz{
))!)))
!!W!F
{{z{{zzzzz
{zz|z
{{{{{
<jj>j>j>>j>>V
)!!))!)!!
-)---
jVj<VjjGj
z{{zz|
T>>j>>>>j</<--<
V><T<T<>T<-j
))!-)!
!!888
V<<jj
|{{{{{
zz|{{
j/</<T
jj>>j
j>>j----->-V>VV-VV
-T-V----j
z|{{{
{<T<>T><T><T<T<{</V-T<V
{<T<-j
!)!!!
jjVVVVV
{z{zz
z{z{{zz
{|zz{z|
|zzz|
{{zz{|z
{{{|{
{{{{{{
>/Vj>V>
>>VV-V>>V-Vj
-j><{
VVVVj<V
z{zz|
{{{{{
zz|z|
VT-VV>T
T>VV/
--{-j
{|z|{
TTTTVTV
eVVVV
{{zz{
|zzzz
{zzz{
{{{{{
VV3VVW
V->T<>T
jjVVVV
{zzzz
{z|||
zz{|z{{zz
{{|{{
e33V3
jV<T>>j>
zzz||
{{{{{{{
|z|z{zz
{{{{z
{{{{{
{{{{{{
z{zzzz{
3V3V1
>V-T>>>T-V
--{>/T-//
jVVVVeV3VVVVV
|{zz|
{{{{|z
|{z{z
{{{{z
V3VT3e
31V3V33e
>T-j/>>/>/V/j
jjVVVeeV
{||{|z
{{{|{
13VV3V
>T/>T>T/>/VT>
VVVeVVVV<V<<<
z{{{z
||{{{
z{{{z
VV3VV3VV3V
1VV3V31VVe
>T>T>TV/T/
{{|{{
{|zz{
{{{{{{{{
|z|{{z
{{{{{
{{{{{{{{z
-VTVTT
1V3VV
3VV3T
||zzz
zzzzz
z||z{
3V1VV
V1VVV
VjV{V
z{{{{{
||zz{zz{z
{{{{{
>TT>TT
T1V3T331
{zz|z
z|||zzzz|
{{{{{
{{{zz
T>TVT
eVV3V
zz{z|zzz
z{zz|
{{D{{{
{{D{{
{V-T>>T>VT
>V/VT-TT>
e1133
|zzzz
{{zz|
{{{{{{
{{{zz{{{
D{{{{{{
/-/>>T
TV-VT>T-T>/VT
VT31T
{{{{{
{z{{|{z
-T>TjV>
TTTV>TT-TV>
VT>VV
{<TT>
VT3V11Ve33
z{{{{
T-V/V>T>/VVT
TT>T>/V
{>T-T>T-V>TjV--T>>V>TVTVT
V3V13T33V
))))-)-
{|z|{
VT>>/T
j/>Tj-V/
VV/>T>
/V-VVT
VVTV1
T3TV1331
|{zz||
{{{z?{
{{{{{{{
z{{{{
zzzzzz
--VT{
T-TTT{
e1T1e
{{zz||
{{{{D
z{{{{
T<T>{
{V-//j/>
--{>T
-j>VV
T-VTVV
T1V1T31e31e
{z{{z{
{{z|z
{zz{{{zz
{{{{{{{{{
T>>>-T-/Vj
{>T-{-{>T
T-{>j-{
/-VVT
{{{{{{{
{{{{{
{{{{{{{{
z{{{z{{{{
{{{{{
zzzz|
T/>>jT>
V/TTT
V3T1e
{{zzz
{{{{z{
|{{{|{
{zzzz
>j/>j>T-/T-VT-
TTTTV/Vj
/-{>/-
j/<T>T>V/VTV
1T1TV1133e
|z{z|z{{
{{{{z{|z
zz{zz
j>{--T
T/Tj//-Tj/-
-/j>j/
1TT111Ve1V
||zzzzz
j/</jj-/-/-T-T>TTj
>T/V{
/j>/>{>/>T>TVVTTV
eT3T1VT1e1
{z||z
zz{{z
V-/{--{-T>T>TT>
jT/-{>j/-
>>T>T-T
TV1V1T
{z|z{
{{{{{
z{{{{
--{>T>Tj
/T>T//jj/
/-{>T>TT>
TVV1T
D{{{{
5{{{{
{{{{z
/jj/Tj/-/>{>/T
/--/j
T1VeTTT11T1T
z{z{{{z{{
{{zzz
{{{{{z
jj/jj//j{-{>/
/j>{-/>T>
V1T1T
e11131
zz{{{{{{
{{{{{{
{{{{{
|z{{{
T>T>TT
3eV1T111T1e1
|{|{z{
z{{{z{
{z{|z{
/>jVj/>T
1T1Ve
eT31T
ee1eT
TT1TTT1T
1Te111
{{zzz
T>{>TT
e1T11T
{|{zz
{{{z{{{
|{{{{{{{
>jjj/
1TT11TT111eT1
{{z{{
|zzz|{{{
{{{{{
{{{{|z|
Wjj{j
1VT1T11Te
{z|zz
|zzz|
zzzz{{
z||{z
{z{{{
>TT/TT
{{z{{
zzz|{{
{{{{{
{|z{{
-------
zz{zz
{{{{{{
{{{{{
|z{{{
{zzz|
jjjj{jj{j
{/T/T
T111P
-----
{{zzz
{{{{{{{{
z{{{{
{{|{{
?{{{z{{{
{{{{{
zz|zz
z|{{|
jjjjj
@----
-------
{z{{{
{{{{{{
z{{|z
{{{{zz{{
|z{||
jjj{j{
------
-------
:#::+++++
jjjj{
{{/{/{{//{TTTTTTMPTMM
-----
{{{{z
{z|{{
{z{zzz
/{/{{TTTT
)-----
{z{{{{
zzz{{z{{
z{{zz{{
#:++++++
jjjj{
{/{TMMM
{{{{{
{{{{{
{{||{
{{z{{{
{{{{{
{{{{{{
{{{{{
{{z{{
z{{{z
||||||
!W))))
{{{{{{{{{
{{{{z
zz{{{
|z|{{{
#,#:#
W!W!WW!)
{{{{{{{{z
{{{{|
{{|{{
jjjjj
!)z!v!WW!,{W{W{!W
{{z{{
z||{z
{{{{{
z{{{{
||{{{
{{{|z
!~W!,!{,{j
zzz{z
{z{{{z{
{zzz|
z{{{z
jjjjj
!v!!
)!v)W!
ZW{Z{{
|{{{{
0WW!Z!!W!W!W!WRWZ!
{z{z{z
{{{{{
{|z{{
{{{{{
{{z{{||{z
jFFW!F
j{F{{Z{WWWW,W{{,
|{{{{
{z{{z
|zz{{
,jFWW
{,{,jF
/>/>/>
||||z
zzzzz|
{{{{{
{{z{{
{{jj{
>/>/>////
||zzzzz
{{zzz{{z
z{{{{
>////
z{{{{
z{z{{{z{
{{{{{z
{{{{{
z{zz{
{{{{{
|zzz{
|{{|{
?{D{{{
{{{{{{||
{|{{{
{{{z{z{z|
PPPP
<<<<<
||zzz{
zz{z{
zz{{{{{
D{{{?{
{{{{{{
{{{{|{
<>>>>
{{{{{{
{{{{{{
{{{{|
|z{zz
{{{zz
{z{zz
{{z{z
zz{zz|zz{z
|z{{{{
{{{{{{
{{z|{
z{zz{|
zzz{{
zz{{z{
{|z|{{
<->///
|z|zzzz
{{|{{{{{
{z{|z|
/////
z|z{{
|{z{{
{{{z{
{{{{{
{|z{{zz{|
{{{{{|
>>///
//////>/>
{{{z{
{{{zz
D{{zz
z{{{{||{
//////
{{{{{{
>>>>/>
z{zz{zz{
{{{{{
||z{z
{z{zzz
{{{{|
{{{{{
es>e5:[,5
z{zz{{{z
[,5,,,,,
{{{{{
{{{{z
,,w,,,,
{{{{{
zzz|z
,,w,[,,
|zz|{
{{{zz
{{{{{{{
zzz{{
{{|{{{{
D{zzz{
{{{|zzzzz{z
{{z{{
{zz{{z
{{{{{
{{zz{
{{j{{{
{{{zz{{
4,,4,,,,,,
zz{zzz|{
{{z|z
z{{zz
{{{{zz
D{{{{{{
{jj{{{{
zzz{{
z{{z{
{{{{{
{{{{{|{{{
||||zzz
44?444
e,ee4e
{z{{{
{{{{{{
{D{{{
{{{z|z{
{{{{{{{
,,,,,
z|zz|z
{{{|{
{{{{{z{{
{{{{{{
{{D{D{
,,,,:
{{{{{{
{{z{z
{{{{{
{{{{{z
{{{{{{
{{{{{z
z{z{{
{{{{{
{{{{{{
{{{||
zz|{{{
{z{z{{
D{{{{{
DD{?{D
{{z{z
?{{{D{
{{DD{{D
{zz{|{z
{{zz{zzzzz
{zz|{{
zz|zz
{{{{{|
D{{{{{
{{{{{|
{{|{r|
4,I,4
{Z{{{!-
|{{{|
{{{{{{?
{{?{{{{{?
{{{{{{
-)-)))
zzzzz|z|
{||rz
D{{DD
?{{{{D
{{{{{
T,,5,
j{{{{
{{{{{
{|{{{|z{{
!!!-v!Z-
zz{zz
go'{m
{{{{{
eQee
W{{)W
zzzzz
eeeeI
))!)~!!WWZ{,
------
s8)Lk|
||{{{{
{{{{Z
!!W!ZWW{
<<<<<<-
<-<<<
<<<<<<<
<<<<<<
-<<<<
<<<<<
ebQe,
4,,,,
qjKD;
<<<<<
<<<<<
beee
,,:,:,
vW{{,{
<<<<<
<<-<<<<<
I,,5,
W,{{W
<<<<<
<<<<<
<<<<<<<<
<<<-<<
<<<<<
<<-<<<
<<<<<
87J0Z}
zz|bs
{{W,{W,
<<<<<<
--<<---
{,{,{
v{vW!,!
,{,W{
--------
e,ee,I,
,W!{,W!{
<<<<<
-<<<<
<<<<<
,,::,
{jW{W
!!WWv
<<<<<<
<<<<<
<<<<<<
<<<<-
ee,eI
,,,#:
vW{0Z!,!,
vWWv!
!W!,Z{Z{
<<<<<<
<<<<<
<<<<<
<<<-<<
,,,,,,,:,
{,{ZWvW
v!!!!
{v!,)
<<<<<<<<
<<<<<
vvZZ,,
Z,RZv~
~ZZZ,
%e,eI
:,::::
,{Z{v
v)!!v
{vWW!v~
<<<<<<<<
<<<<<<
VV<<VVV<
VVVVV
vv,v,
,vZvv
-<<<-
)eeIe,
<<<<<
<<<<<
<<--<
<<<<<<<
Vj<Vj<
VVVVjV-V
~v!vWv
!WWv!Wv
++++++
,{,{~WWW
j,{Z0W)
<jj<jj
VV<VV
jVj<<{V
/-jj>/
!RvZv
eIeI
,,,:,,
V-<jVV<
VV<<VV-
0Z!Zv
V<jjjV
Vj<<<
<<jVV<V
VV<<VVV<V
V<jVV<<
jVj<jV
)vW~WvWW
,Z,,WZZ
,!v{v{
v,!,W
/-j</{j
<>>jV
<<VT<-V>
-V<T<V<Vj
vWWvWW
WvWW~v
!)~v!
{FZ{!v
-)))-
<TV<<j
>Vj>TVj
<T<j>T
~W)~v!
!vvWWW
!WWWv
!!~v!)~v!
vvZv~
F{,{v)W!
j{>j>jjj
>>j<>><<
<<V<j
VVV<VVVj
<<V<<<
v!~!v)
,:++:
IXXI
{0{Z!
)-)))
{<VVT
>>j<<
jVVT<VVV<
VVV<VVVj
)!Zv)!!
vv~vv
,++++
XXXX
>Tj<<>T
j<<j<<<j
j{W,!!v!
Vj>VV<T
V-j<j
j<T<T<>>V-j>
j>V<TVj
<T<T<-V<>
V<j<<V<V<V
<V<V<V<j<V<<V<<j<
)~~)~
W~vvWvWvWvW
W,ZW,
!{WR!!~
{<><{
V>j><
Vj-<<j
<j<<<<<V<
j<<<<
!v~)W~)W~)Wv
WW!v~{
v!vvv!,
Wv,WWW
{,{,!v)W
V<V-<>j
>jV<jVV
j<<jV
jV<<jj
VjV<j
,v~)!
!vv~!vv
!v!v{v{
v,v,W,v,W,Z,
++++:
V/<-V
j>Vjj>Vjj>
VV<<j
<VVV<V<Vj<<<j<<<
~v!)~
ZZ!!,!v!vWv!
v!W!v!WWv
WvWR~vv,)~vW)~,!~v{
W!vv!v
{v!v{vZ
,,,,,
j{jWF
j<{<-{<j/<{<-j><{->j>VjVj<T</V
<j<j<
j<<<j<<<V<Vj
<V<V<V<<Vj<<
vWR~vWR~!vWv!
!v!vRvW~v!
WR~WvR
vW!vWvWWvWWvZWvWRvZv
~WvvWR
WRvZZvvWRv
WW,ZZvW,,ZZ,,Z,,,,v
VT>jT><j>>-
!vZvW
WZWWv,
,{Z,{{Z,W{Z,WW{
{,W,{
W,!,v
,{,{,
,W!!~
T>jj{><T
>>{T>>{V
Vj<j<
R!,,ZZ
{Z,WW,
,v{{W,
W,,{,
#,!!)v
j>j>j/j>T{j>/{<
j-j><<T><>>T
)-)-)
{{W,{,{W,,
X#t!Z!W!
>-j>j<>
<T/TVj/TVj
<T-VV
V>>T<>Tjj
Rv!~,,Z,,,
Tjj<>T
V/>>jT>/jT>
)R!,{
+++++
{vW!!
))--)
/j{<{T
VT>jTT>TTTT
T//>T/
TjT>j>j
{<>jj<jj
)~,V{,
++++++
2#tX0{WRZZ!
--))-
/j{</<{
-T>V/>>
>>Tj>TT>/T>
j>j/j
)-)-)
XX#X{,W{!W
-)---
>/{>T/{
-T{/-/T{<//Tj/
XXt#,
{Z!v!
{TTT/T>T/
//<{T/</{T</-
VV-{V-{VV/{
)-)-)
WvW!vvWW
VVV/VT
T/T//
jV/jV-
{<</j
WWWR{v!
{vZWWW
{/T>//Tj//
//VV>/<j
)~ZZ{,
=====
WWWWv
vWWWW
WWWv!vWv
Te1Te1Te1Te11T
-T{T{
-T{</>T
{</Vj
~R!Z,
{,,,W
{,,,W
{{{,W
{{,,W{,{
-{T/VTT
11T11
>jT/jV/{T-
)---)
)vZZ{,
,W,,W{~W!R
V3T1V111eT
13e11
V>{/j
-WZZ{,
sPsP#
{FZZ!~
1T1Ve11
~)~R,{,
2+>=1
jZ{,0!-~
/{TjTT
VVVVVVVV
~,ZZ,
e>sP5M#
j/TjTT
eT3eeeV
eTT13e
V11eTT1T
==>=>
>s>sM#n
M####
$sRZv)!
T11eTT1e
|11eM1
M1TM/TT//TT/T
T/j{j
)R,R{
HTAIL
wINFO
4.0a.01SCRP
on opencard
put bg fld "helptext" into bg fld "app"
pass opencard
end opencard
navscreen
screentype startPrescard
/INFO
HBOTAIL
.INFO
irelandTAIL
-INFO
bitmap id 45data
))))!)
!sKj<aII
#P#t##
#t#Ps
###t##
##t##P
###P##
t#t#PP
I#I###P#
##P###
#P##P####
##III
#P#P#P###
######P##t#t##
e11e1II
s#P#PI
#P#IP#P#t##
Q1Q1I1II
IPQ1S,,_
\R1PIP#I#tQ
IQ11111S11111,,S111,Je
Q111Q11111
J,,S,1,,11111
QQQQI
e11,J1__
S,,1Q
P#P#PIIQbS1a,,\
Q1eBBeW3,
gRRT3JTJ
Y,#NN>SId=I1TS
I_9S_
3Y/J"JJJJ&K/m(KKR5TJ&J(Y&J&J
,S,,,_1a1b1QQQII
t#sIIQ11,,,J1,R
1T)MAA93WT3<@@@A)5`RJ$D
I$d $N>Q3NIN1
1BGS=S=B1
J9DDOJ("JJ5O/DAO)C@0J@O.HKH(K,,KKK.KKKJJJ
J1,1I
IIIe1PQ1,Je
e1RNA:BBT
RAT99A95A9
1JQI=S$=
NBd==$NNd1$=BS 9I
=J"3/J//]5@85]0/*KJ*"K(S
J.K.K"J"J"JJJJ&&
PIsIIII
Q,S,QQQ
QS,1,Je
,111RI
B= =QBB> B$N1>G
I,R3&1,3J&JJJ(J&.K("K/KJK/HJH/K1,JK(J(KKJ(JJ!&!
#I#sIQ11,JJ1,Q
111,,
J1JRWKTHYH\HWYHYJ(J
J3I1>
##>I#I>
3KK(HK/J/.H/(HHTKK/H/H*K+*.H(,J/HT.Y!R
eIQQe1,,J,J
1It#P
ItItI
I#I#IQ
PPPPI
I1QQ,S_QSH]/[/[][T[Hm[33H
11J1QQ1IP##
Q11,_,,e
#t#P#e111_J_
JQIQQ
eQ11,,aR3YR\
##tPII
eeeQ#
,JJJJJJKJJKKJ
1QQ,IIIQP#PIP##
R_,I1P#PI#IQeQ
QQ,,,JJ!JKJKJKHHKLULVUHUVUUKJUHUHHKKKJJJ_,1I
V/kkVy
11#####ss11_S
J,,J,JJ
JJSJHY
YJ!&JSR_!S,3993
S Q
D$HJS
!Q###
t#s#I#IPII
PQ#PQJT,J11S>SS1>S
DiKJ9
9
@DOJJY
##P#P#P###
=1 1Q
118Z[.JS
#####
SB0HHJ_#
t##PII
ZHYJ3
III##sIQ
R*1,3
k0KJ_
D@KJ_
t###P
#######
##Y/1,N3%
8@@D)
8@JJ3
408?@
11,I#tI
=MK_1
tIIP#
,J(,_
08CDD
#####
39))/ &
/@@%))
Mi"\e
J,###
)MH1Q
#I#31##
+ +.
8A9@
N@R,_
!9939
#####
1:T1I
######
39&)(
JJ&J&JJ""&&&&
QA(_J
stttsestetseseeeeaaaaYhYYhHYUhU[UUHKR/)5<%9&$A0
\_a_S\aaYY
stttb
~bb~~
baeaa~ea|e
)/@8:)))
z~ayz
ysz|s~ztte
~~ee~eees
#Q#3Q
~~e~eeee
e139)
0@@)!
eee9))/A@0
/ <0
@?))5@
9!!)W!
Ki&3!
v~vvq
*10-:
Q11_1J,JJJJJJYYJJYa,SSeSbeeQIQ
hR,R99&
3S,,P
#1K9!
e#R,##
##########
#I#R,##
<Q#I
/)-))
J,####
QQ#!1####
II11
e####
,,1,,,,,,,
,,S,,,,1
1I#IIP
_1#,Q,!SR3Y(J/K/K*K/HH/HH*HmH[KKKHHKUHHYKHY
JHYJKHYJJKJ!KJ&JJ3!!!!
31,1,1
##t1PII#III
1JH[HiU0U[0HgH*UTHTH93HY3\YJ_,R_
SJS1e
_1IJaQQ
,11J_1,Y
,J,J,J\,J_
_JJ,J
JJ,JRR
QI##P##
Jg(\.mK3SJR!SJS,I,eIPs
t####
,SeIeJSQ,JQ,_#I#
I#I#I
CKsYS<2>,V
LN+L4
>SrCCC)s
y/)iF3
B=j,x,,e=,
#t#t#P
#PP#PI^N1eIPIPIIII
e11111Q1Q
IQIPII#I##P##PPP###
1,,1,1
#t#P#IPIPIIJ
WQCMM
]$fBd_
111,,,1,,
,,,,,,
J,,sIPIs
S,,111111Q1Q
JJ&KUJKUJUUZJJU0ZH,11,1
P#PIIS
B1,\Sz
Pe,SQ1111,1,,
a,J,S,Jb1Y
1KU,HHK0JHHUHJK8J
P#P#s
515WIT
>s,J,1JS1J,J,Y
,111#
,Hm/,JY3JR^_,K
QKHJK0JZJHUHK[.U
#PP#s#PII1
1,T3R,
>_J=JNR,`,SY3YR,J,
,JBT/J_
WR!,,JI#KU0ZHK[HU0U(HH0Y
PI#ISAB
DB11,1
JJQ3TS9,1T3,9R9,,1,1#
,R!R1!T3J13J
.HKHH(01KHHHJ0HP#P#
#tIIeS11JTAAMM??
D$Q,\e>
JJ1,J1
J11,1S,
3H&UK0
JK*Ks###
#tPPIIQQ1,,JS,_,,Q
,SQ,,1,S1,
_,,,1,,
&J1I#
#tPPPPP#P
#t##sPPPPsI#III
PPP##P#t#
#P#sP#P#
#sPPP#t#t
######
#####I#P
##s##P#PI#sIIIIIIQIIIP#t#tt#s#
1,,111
P##s#PPPI
IQQQ1e1Qe
IIQ#P#
###I#I
1,Q,,,,
,,,11Q
,`LaxT
N``NT,`,
,,,}1}
#~!!R
sjKjj
,LLLT=
#s#PP#IPI
IIIIQIPI###
IP#P###P##P#II
#P#P#P#####IQ1#
1,,,,,1
II###
P#P#PP#IIII
#PII#PPP#PP#P#
##P###
######I
,11,,1,1I
ZTAIL
Q+RGr
app1TAIL
*INFO
bitmap id 42data
zQ z
z z
Qzz>Q
M2G.6
||_o~~
$NzzQ
~z}xz
YTAIL
+INFO
debeers2data
q;B?5Qdqg\
?q`fR
9Qf}.88
($g(|
2mc5?6
?~T}5
xb}|u
555NS
Jc8xn
hwb`?
1?dpw
|Nx4?
6n1?'
NJG;2A
i??T?
?6LLG
,J{4L
?ik~i5zc
?`{UT
_??;J?
5?54}}m
S?-??
OB:u'
51ncQ
f]"T|
g6a]T}5
OqI7?
3Beeb
?{I2s
ve__c?
5p{T\{
D723Df
-Vm?-i
q9I?u
H?Bx-?N
K1~5f
7?5J7?
?KJH?K
??I35
^TAIL
,INFO
bitmap id 44data
u<=$=
G$$=u
$u$$f
u$$f$
DOiABSQSN
CkT/3_1QQ
$$u$]
<T)B9`
$$=$u
G$$$]
T<BBWB$<
=B$$]
}$]$B
$)999=Rf$<$=$B
u$fuB
T<9m31!
N=BT`=
>N==QPsQN
<$u==93R&
1#=G=xS|zz
$$1SNIS]~see
z|zSN
!!&&"
=$B SI\uzezaz|~zaazb|b||
u$$B$B=!R"""..K..&
Iz<~b~ab~~a~zzzaz|bzb|
=fW=!&""""K
f=uB$
$$$=]
$$$$f
B$B3bsN]~bbz~~b
zzzbz|b|bb
^33"""
66.JJ
~|~~~a~~zazabzbabb
GfBT3&&".
=NSQ^f~a~~~zz~aze~~az||
^]OMkOAM]AT9^"J""+L
$BSe1^$~~~~~~~~~a~ezb|bbb|
eb$M[@Ai]5mT9RJ9J.66L
uG$$$$
~b~~~~~~~~e~e~a~z
zz|z|zuDD@5T/W3JRSTY+KL
L""J&RW
<<1b1N]~aa~~~~~b~~~~ay
NwfAODD8[5g5]*H8H06L
LL6L66"&JW3f$f
u)$=$$f
$W3Sb^
wz~~~~~~~~~~e~
``BBT8i8iOiDkOiO0[HL6L66L66K+
KRW==
=uB=f
]9_ae=u~a~~~~~~~e~a~z|
OMiF]$TN_Bf8ikOO[DkO0Z80L66L6
L6L.JJWWBBBB
f=$]$$$$f
$=]$A
B_S1^
~|~~~~~
~~~zy
MiO8li9\9WW<kOk8Di88iDUH6LL
L..JJ&9T=
)wT,Qx
$Q--QQ2te
`4[U}J}U
f$T9SQ=f~b~~~
}MAA=]@@ODmTTR9H@8D8k8iO0U06L
K6"JY9=
vMlMi]B]0O*ik9BT=TD8D0iO0[4LL6L
L6+J.9R
$`$T_3bNf~z~~
Mi@AAAm/i@@TW9TT0i8iD0Z0K66L
L66L6+.JJ^<B$f
$B9eQ=u
OO8]5MA808TT3gDDiC8i0KL6L
".JJTT$f=fB$u
B$T9S1u
OOOOO@Om88l8kTT/8DDkD0HH.L
Y3^NT$=f$B
$$<$u
eQNNe
ODOkO/O8O[8l)55Ti8[O0HL6L
<911ruve~~
Di8i8iO8O@l@5]]*ODk0LH
,1_``===$=
$==T3\a^u~~~
iDiDiODi0iO5OO]OO80[66L
11=\B
$BBT=\I
DiDiDD[DiD8iDk88]DZ/L66L
==)3bQdB~w~~
DDDkDiDkDkDDk88O0[0H.L6.LLK
=9B=f
$$`$TB1Q=
DCkOiDkDkDk0DD8Oi808H4L
Q,N9^$$$B`
$=$$B
<ABae`]~w~
DD8iD0D8iDiDi8iDk8[OO06L.."
!_[4Mx%T
{iT1h?
--|-Q-
/w|-Qw
T=1b`$
~}DiO8iDiiDikC8DkOi8ii0iO8i888O5]/
$)9eed]g~~~~
DODiZDDi8DiD8D8DiD8iiD080[k*k8]]T33
QS9=`uuf
=u$=BA=,S^$
DDiODDiDiD88iDZ8i0iOO0i8i80i0]0*8]/R!
G<9ab^]a~~~
~e~~}OCiDDkO8D0iii8OODk880k8888i0O0]8*k*/+"&
G)3Q1N}va~
uMDDiD8iiODkODk8ik8iD[O8iDk@85k85k*/*KL
=$A=e1fAa~~~~
~v]iDDiDDDD0k888O888D88O8i0*8ii85i55*06
=Bud=`
$=<<d1e
MDiDk8ikOOOO8ODkOOO5i@[Oi88@k0O/0[
S99==
ABwbN}wa~
~~x}ODD8Di8O8O8iO@0D0k5i8]5O@8558iH@5%
&""".
:A=e1f<rz~
iDkOO8OOD0OOk0i8O8O8D888l]55@/*3."..
A3Ye=A
~~vuAA8O08iO8iODO8D88O8Ok85]]0]50**/L++.6
.+6."
uB)^e1=
~~e~T
O5iDD0iD8[Oi8iD0k0O8O80*8i*[5[(+.
1T=N=
9<<TeQ=
~~e~~NfDO8ikiiOiD8iD80i888O5i[8k5H5H/K.
Q1=fuS~~
~~avMiOODOOO88iDkD888i88i8OO588/T*+..+6
:3s1u
r~~~~
ay:DO888i8iiD8D0iDk8O8O8O55k//0( ".
A)NQQ=fuS~
OOO8iDD8Di88iC8OO8D0D0i885k4/..
K"./9^$<G
$<A<91S=
~~}D0Oi80iiDDiiOiD08O8O5k8O]k0**6
....J" ...
h+K/WWBB
B<8S11uGvz~~~
~a}?Oi@iD8D0iD0iO0i8O8Ok@8580]0K.J
+.K+.K(3=`
NA<Bsb=$`e~~
MDOO80ikiO8iD8iOi8i588O[8k0H/K"L
K&K"JT3f=u
=BFAS1QB<uza~
~~uCD88iD8iD0iO0D8i@D88iO8Ok885*+.
.K.+..+..KKYJBB9]
<)T9s1=}\S~~~~
e~uMiOiD[DD0D8OD0i8OO8OOO85888/K6.K
J"J.K.(T99B$
:A9Q1f
uS~~~
DD88Di0i8iO8iOD00iO80i@888/5++
h."K(J/39T`T==
AYzaz
~~wMDODi8iD8D88i@O0iOO*kO85]/]*g.JK+.KJJ3TB<=f$d$
]$$$$$$
=A)RQ1=
i?MiOiDii8iD88iO0i8k8]/k5]*]%TT%T9T$
9A)9sS
e}DODkDkOO8OHii5]k8T8T/[)T]BT==B
BFA3QS=]}Sa~~~
~e}DCkCk8D8k0i58]5)T/W/`$B$$=
9:TSs,f
uCDD08i0i5i8]TTTTWW9`$f
=$Bd<)9QSBAu|~~
e~i?iiDDi5lT/9W3TRBWd$f
$G$$$
AASsS
A\waa
~CCiDi0/o9T3YRfBdB$$
$$u=B$=
$u$$$$
9A8NIS$A}ba~~
OO8gT3m/^dBBd$
$$$f$=
u$<<$
=A$_s1f
D8k93mT99)d=$$
$B$<$
QS=:}ze~
]?iDT3l)TTTT
$u$$$==
=9A)3sS=
oe~~~
DOTm)T<B
dA< Q,fAuz~
}iO]T3mTT=
$$$$$$$B}<
s_=AxQ~
M93rBB
===<TRQ1T
~~iMTTW9=
d@)NIa`<v|~
M]`W`B
A<1IS$:}Se~
$A< sS$:ob~~
eSf:uba~
$$$fu$$$
B=9A$NeS$:i|ba
uB$u=
$$$u$
BG)StSBMusae
$u$$$
=G9QbSTMNe
~~~vvu
}$f$$$
f$<$$$
=fN<BSIST:gb
=)91Q_
:fe~e~~~w
BB$=f
$$GB$
=8d1P,]Afbe
$<$=]A
$$$$$
^<<1IS$:
=<91sNf
$$u$$$$u
ZTAIL
$+RGr
0INFO
DebeersTAIL
ZT+BUT
DebeersSCRP
on mouseUp
global gPathExhibits, gLaunchStack
hide cd shp "Debeers"
put cd fld debeerstext into cd fld "blackscreentext"
lock screen
show cd shp "blackscreen"
show cd fld "blackscreentext"
show cd btn 5
put gPathExhibits&"Debeers.sta" into gLaunchStack
unlock screen
end mouseUp
on mouseEnter
global gCursorButton
set the cursor to gCursorButton
put "Computers for the Professional, Ltd." into bg fld "app"
show cd shp "Debeers"
end mouseEnter
on mouseLeave
global gCursorNormal
set the cursor to gCursorNormal
put bg fld "helptext" into bg fld "app"
hide cd shp "Debeers"
end mouseLeave
set the c+RGr
1INFO
Route66TAIL
Leave
3INFO
DebeersSCRP
on mouseUp
global gPathExhibits, gLaunchStack
hide cd shp "Route66"
put cd fld route66text into cd fld "blackscreentext"
lock screen
show cd shp "blackscreen"
show cd fld "blackscreentext"
show cd btn 5
put gPathExhibits&"Route66.sta" into gLaunchStack
unlock screen
end mouseUp
on mouseEnter
global gCursorButton
set the cursor to gCursorButton
put "Cambridge Digital Media" into bg fld "app"
show cd shp "Route66"
end mouseEnter
on mouseLeave
global gCursorNormal
set the cursor to gCursorNormal
put bg fld "helptext" into bg fld "app"
hide cd shp "Route66"
end mouseLeave
set th+BUT
6INFO
IrelandSCRP
on mouseUp
global gPathExhibits, gLaunchStack
hide cd shp "Ireland"
put cd fld irelandtext into cd fld "blackscreentext"
lock screen
show cd shp "blackscreen"
show cd fld "blackscreentext"
show cd btn 5
put gPathExhibits&"Ireland.sta" into gLaunchStack
unlock screen
end mouseUp
on mouseEnter
global gCursorButton
set the cursor to gCursorButton
put "International Video Network" into bg fld "app"
show cd shp "Ireland"
end mouseEnter
on mouseLeave
global gCursorNormal
set the cursor to gCursorNormal
put bg fld "helptext" into bg fld "app"
hide cd shp "Ireland"
end mouseLeave
se+BUT
<INFO
FashionSCRP
on mouseUp
global gPathExhibits, gLaunchStack
hide cd shp "HBO"
put cd fld HBOtext into cd fld "blackscreentext"
lock screen
show cd shp "blackscreen"
show cd fld "blackscreentext"
show cd btn 5
put gPathExhibits&"HBO.sta" into gLaunchStack
unlock screen
end mouseUp
on mouseEnter
global gCursorButton
set the cursor to gCursorButton
put "Home Box Office" into bg fld "app"
show cd shp "HBO"
end mouseEnter
on mouseLeave
global gCursorNormal
set the cursor to gCursorNormal
put bg fld "helptext" into bg fld "app"
hide cd shp "HBO"
end mouseLeave
LINFO
blackscreenSCRP
--on mouseUp
global glaunch,gPath,gCursorButton
if glaunch = "Ireland" then
lock screen
hide cd shp "blackscreen"
hide cd fld "blackscreentext"
hide cd btn 5
set the cursor to "clock"
do "go to stack"&&gPath&"Ireland"
set the cursor to gCursorButton
unlock screen
end if
if glaunch = "HBO" then
lock screen
hide cd shp "blackscreen"
hide cd fld "blackscreentext"
hide cd btn 5
set the cursor to "clock"
do "go to stack"&&gPath&"HBO"
set the cursor to gCursorButton
unlock screen
end if
if glaunch = "Route66" then
lock screen
hide cd shp "blackscreen"
hide cd fld "blackscreentext"
hide cd btn 5
set the cursor to "clock"
do "go to stack"&&gPath&"66Main"
set the cursor to gCursorButton
unlock screen
end if
if glaunch = "Debeers" then
lock screen
hide cd shp "blackscreen"
hide cd fld "blackscreentext"
hide cd btn 5
set the cursor to "clock"
do "go to stack"&&gPath&"Debeers"
set the cursor to gCursorButton
unlock screen
end if
end mouseUp
do "go to+TXT
NINFO
irelandtextdata
International Video Network presents a Travelogue on the country of Ireland.
Click on this screen to launch the application. Then press the "Exit" button to return to the Exhibition Hall.
Note : The final versions of these titles may contain richer content than this demo version.
O+TXT
OINFO
hbotextdata
Home Box Office presents an example of a Video On Demand system.
Click on the screen to launch the application. Then press on the "HBO" symbol to return to the Exhibition Hall.
Note : The final versions of these titles may contain richer content than this demo version.
PINFO
debeerstextdata
Computers for the Professional, Ltd. presents the Debeers Interactive Guide to Buying Diamonds.
Click on this screen to launch the application. Then press the "Exit" button to return to the Exhibition Hall.
Note : The final versions of these titles may contain richer content than this demo version.
NAME+TXT
QINFO
route66textdata
Cambridge Digital Media presents
Route 66.
Click on the screen to launch the application. Then press the "Exit" button to return to the Exhibition Hall.
Note : The final versions of these titles may contain richer content than this demo version.
ition HallSC+BUT
SINFO
Return to Exhibition HallSCRP
on mouseUp
lock screen
hide cd shp blackscreen
hide cd fld blackscreentext
hide cd btn 5
unlock screen
end mouseUp
disable+TXT
TINFO
disabletextdata
Early-Adopter applications are disabled in this pre-release of
"Presenting Oracle Media Objects"
Our apologies!TAIL
lacksc+TXT
MINFO
blackscreentextSCRP
on mouseUp
global gLaunchStack,gPath, gReturn
if gLaunchStack is empty then exit mouseUp
lock screen
put "4.0a.01" into gReturn
hide cd shp "blackscreen"
hide cd fld "blackscreentext"
hide cd btn 5
set the cursor to "clock"
go stack gLaunchStack
set the cursor to gCursorButton
unlock screen
end mouseUp
International Video Network presents a Travelogue on the country of Ireland.
Click on this screen to launch the application. Then press the "Exit" button to return to the Exhibition Hall.
Note : The final versions of these titles may contain richer content than this demo version.
This example highlights Oracle Media Object's ability to scale bitmaps to fit inside windows of varying size. Using proportional windows, the application moves bitmaps from one window to another and automatically scales the bitmaps to fit within each window.
G 2sfAo``rmTgf^mWS\`\^^\^__,YW\\`WW_Wm`\mTTgoT`^Wo]gTgTgTgTmTmTm]WWmfrf]mf`Q,mWmgY\`W\SSSS1e1IPQQeI#P#QS1>_a_RaR_RmRS__RS__Rmgo]WWWm/mT_WW/[lTmgmgl[omTgo[fT]o`_
max(min(mouseV(),item 2 of minMax),item 1 of minMax)
end repeat
put item 2 of the loc of me into yLoc
set the cursor to lastCursor
set the period of cd timer "Demo" to
getvVal(yLoc, minMax, 50, 200)
end mouseDown
-- get upper and lower physical bounds for slider
function getvMinMax tabObj, slideObj
get trunc((the height of tabObj)/2) -- make it integer
return the top of slideObj + it&","&the bottom of slideObj-it
end getvMinMax
-- return a value between minVal and MaxVal based on
-- relative vertical position of val between minMax
function getvVal val, minMax, minVal, maxVal
global gWindows
put 1/(item 2 of minMax-item 1 of minMax) into scale
put item 2 of minMax-val into v
put v*scale into pct
get maxVal-minVal
if gWindows then
return (it*pct+minVal)+60
else
return it*pct+minVal
end if
end getvVal
on mouseEnter
set the cursor to hand
end mouseEnter
on mouseLeave
global gCursorNormal
set the cursor to gCursorNormal
end mouseLeave
#######
DemoSCRP
-- Card 3.0c.11 timer script -- timer demo
on timerExpired
global gWindows
put the currimage of me into i1
-- map 1,2,3 to 2,3,1
put (i1 mod the nimages of me)+1 into i2
set the currimage of me to i2
put the basename of me into bname
put bname&i2 into bname2
put i1 after bname
put the fieldbase of me into fname
put fname&i2 into fname2
put i1 after fname
put the soundbase of me into sname
put sname&i2 into sname2
put i1 after sname
lock screen
show cd bmp bname2
hide cd bmp bname
show cd fld fname2
hide cd fld fname
unlock screen
if not(gWindows and the isplaying of cd snd "main") then
stop cd snd sname2
play cd snd sname2
end if
put the period of me into p
start me expire in p ticks
end timerExpired
basename
bubble currimage
1 fieldbase
bloop
nimages
period
50 soundbase
soundTAIL
soundT+TXT
bloop1data
Popcorn!TAIL
orn!T+TXT
bloop2data
Cotton candy!TAIL
bloop3data
Caramel apples!TAIL
les!TAIL
sound1data
l2AIFFCOMM
!#%&"
"""!
"&*+"
!#$$#$%$"
$()
#%%$###!
(01-)&%
&+-,,/*
!.65234.
(/1.&
(,054)
"&,,$
"'(&!
(17<9.
(//-$
!%')+,++)&#
/8=5)
%+-+"
&-29AEC9$
(/43)
+5@C9)
%**(
%:A:."
)145.#
!&-7?>2
'-.)#
!#&)+'
!)+("
$+.-+&
$**($
$)*($
!%$"
#''&
!&)+,-)
#*../20'
!)-./20'!
$+-.12,%!
%*+-0.($
#)+,//+&"
$'),.,'#
%(+.-(#!
"(,-+'#!
"'--)%"
%+-*'$#"
!'*)&##$!
%&$#"#&#
!""!"%'%
"$%#
"%$!#'
%&" !&$
"%#"$'!
$$!"(%
" !#()
#*-"
$+,
"'./#
"&+/+
$294$
!#'+01%
$097*
!#&+24*
"#'/77-
#'-23*
#).33+
#%%&).45,
$&).35.!
!"$',142(
"&')-12+
"(.220)
'))*-/-$
(/00.*$
#**('*-*!
$+//.-+%
'*&$%*-)
&,/.+**%
%)'%&*,(
$)--+**'
")(%%(,*!
!'+-+(),(
&+'##'+)
%*+(%%)'
''$"#&'!
"')&$%(*%
#(%! #'%
#')&##'("
"$('
!#&&((#
#%%&(&
!"###%&#
!"! "
fSFX!
sound2data
dAIFFCOMM
$*/3-
!(1:>4!
)1.)''$
"$'+..48-
'1762,'#
&+,-.26:1
$(% $-9=;3)
!%*-/386%
!,010,$
"*24/&
'./%
(692-+&
"')' "#
+?F:/1/
!#'+,+*)*0'
*76*-5/
$*159<<3
#+12/
"')+.47;9'
#=NLB6%
".:DJLOM5
&@KGD<1
%0;HN@
*8673,
$)0:A=!
)<>9/"
%*/7@G=
'<DCA9.
"-;HQVF
+HTTNH@+
(-/,&
):P_M!
6CKLI=#
,5:7'
")26/
&.56+
&,-,*&%!
%,.,)&'%
#)+*'#""
(+,*%#"
"),,*(%#
&,/+&$#"
"*.1.(%&#
%,23-)''$
%,141-*)'
%,232.))*#
&.12/,++)
"(.11/,*'"
#*02/+)'"
&-1/+)'$
"(,/0+(&$
%*./+('#
!(++)'&$
&)*(&%$
"'(&&''
$%$%''%
!"#$'(&
#')'
$&&$
$$$
#%$('
!$#""$)--+
!$&'((())
"%%$!
#$$#"
%&%%"
!$$$#!
$$#!
$$$"
fSFX!
qqrrEDEE
4+TAIL
4+TAILSOND
sound3data
AIFFCOMM
$&&&! &),,(''%
!$#"&*.22/--./%
"""$&(*.28/
!"&)-0
&%"""&,23#
#8=3$
!"'*-2(
$%()+06;*
!>PH2"
!#%,79)
4DB<5-$
)/,($
#$&#
!''$
&-03421)
!)09<4)
#*.,"
""$'&
!',03/!
%+,(
$&**#
#$! !##
"#! !##
""!!#$"
!! "$#
"%&#
!##
!"%&$
!##$&%"
#"$'&#
!#$&'&$
!#%&()&"
#'(*+*&!
#&)++*%
$(+,*&
$(**'#
%()(#
&+142-%
)27::4)
&/8=?=5'
#*,(!
#*3;?@=3#
&/7>A@;.
!)2:?B?7'
%.7=@A=0
)3;@B?8)
%.7>BB>2
)2:@A@9)
$-6=AC?4!
(18=@A:+
#+49>A>3
(/6;>>8(
$+37<?:-
#*/4:=<1
"'-37<<3#
"&+049<4$
"'+/49<6'
#&*.17<7*
#&(,06;9-
#&').49:2#
!%''+0596-
#&'',2674+
#%&&*0453-"
$%$%+132/%
"$##'.220,$
#$""&/31.*#
"#!"(020-)"
!(01.,)"
")12.+)!
!)11.,("
"+33/-)!
"# %-43/-)
$.43.-(
$.53/-(
$.650.'
%08740(
%1::63*
&3=>;6+
"##&(#
!,9DE@;/
&*($"!
!$*5AJJC:/
',08@FG>3)
+246:;;6,"
+//11//,$
+0/.-+*("
(..-+''&"
$-.,*%$%#!
'-,*&!"$!
*+)& ""#"
!)+)%!!$%#"
"())%!#&%$%
'++&%''&&"
!),/,('(#
*/1/+(%!
+021+&#
$-01.(#
'-/.)"
'-/.("
%,.-(!
!),-("
&,,*&
&**(!
#&'&
"$##!
$$!!
$%!!#!
"%'%%(
!&'#!"(#
''# !&++
$)'#
!&$$$$$&
"#"!#,
#&),+
""$%"
$(*+-156-
$),+*,("
#*/022475*
",22.+)%
!$$$%&*0456665*
&/683-)$
"(**()*-365458-
$+5;81+%
$)+)'(*.243125&
#*483,&
!$()((').230.00"
")250*#
"')(''(+/2.,.,
'03/(!
"$'('&(+.//,+,
%-1/*"
#%&&&')+,,*(*&
'./,&
!$%%$&))**('("
(./+%
"$%$$&())('%&#
%-/,&!
!!"$%%&)*)(&%&'
#+0/+&"
"#$$%)*))'#$'$
%-1.)&#
""$&('%$#!$#
%-1.+&#
!$$%'''&"!"""
%-20+&"
$%&)('&#""##
#,20,'"
"$&''&$$!!#$
)02-'#
#%''&$"!"!##
$-20+&"
"%&&%##"!!!"
'03/*$!
"%&$$#! "! "
'/2/)$""
!$%$"!
#+0/+%""!
#$#!
$*/,'#""
"#!
#*.-($##!
&,-+&$$#
%*+'$#"!
%*+(%##!
#*,)&$$#
#(*'$##"
!'+(%#""
%**&$##"
&*)&$##!
#))&$##"
&*)&$#$"
&*)&$$$#
()'%$$$
'(&%$$$
#()'%%$"
#')'%$#"
&)'#"""
"((%"!""
!''$!!""
"#! #%$
! "%%#
!"!!$&&"
!"!"$&&"
!#%&#
!!#%''$
!""$''%
!"$&'&"
!##%&'$
"$$%')($
!!!#')'"
!""#')'#
!%)*'!
!"%((%
!#'(&
!"%'&"
#%%"
fSFX!
TA+TXT
Fastdata
FastTAIL
FastTAIL
Fastdata
SlowTAIL
SlowTAIL
revealcoverSCRP
on mouseUp
hide_reveal
end mouseUp
T+TXT
revealscriptSCRP
on mouseUp
put the period of cd timer Demo into p
start cd timer Demo expire in p ticks
hide_reveal
end mouseUp
Using timers, this example allows the user to adjust at runtime how fast the concession worker yells the names of the items for sale. It uses the same slider handling code as the animania examples in hackland.
The timer specific section of the script is as follows:
set the period of cd timer "Demo" to
getvVal(yLoc, minMax, 50, 200)
The timer uses a number of properties to define the name of the various objects associated with each of the vendors calls (the text, bubble bitmap and sound objects).
Following is the script of the timer object:
on timerExpired
global gWindows
put the currimage of me into i1
-- map 1,2,3 to 2,3,1
put (i1 mod the nimages of me)+1 into i2
set the currimage of me to i2
put the basename of me into bname
put bname&i2 into bname2
put i1 after bname
put the fieldbase of me into fname
put fname&i2 into fname2
put i1 after fname
put the soundbase of me into sname
put sname&i2 into sname2
put i1 after sname
lock screen
show cd bmp bname2
hide cd bmp bname
show cd fld fname2
hide cd fld fname
unlock screen
-- windows only has 1 sound channel...
if not (gWindows and the isplaying of cd snd "main") then
stop cd snd sname2
play cd snd sname2
end if
put the period of me into p
start me expire in p ticks
end timerExpired
edBMAP
aINFO
navscreen
s5.0bkgd
done_downEXTI
ddata
doneSCRP
on mouseDown
global gCursorNormal,gCursorButton
hide me
put true into pressState
repeat until the mouse is up
if the mouseloc is within the rect of me and not (pressState) then
hide me
put true into pressState
set the cursor to gCursorButton
else if the mouseloc is not within the rect of me and pressState then
show me
put false into pressState
set the cursor to gCursorNormal
end if
end repeat
if pressState then
show me
buttonpress (the short name of me)
end if
end mouseDown
on mouseEnter
global gCursorButton
set the cursor to gCursorButton
end mouseEnter
on mouseLeave
global gCursorNormal
set the cursor to gCursorNormal
end mouseLeave
ddata
done_litEXTI
ddata
options_downEXTI
ddata
@DDDD
G@G@@
@D<AA
optionsSCRP
on mouseDown
global gCursorNormal,gCursorButton
hide me
put true into pressState
repeat until the mouse is up
if the mouseloc is within the rect of me and not (pressState) then
hide me
put true into pressState
set the cursor to gCursorButton
else if the mouseloc is not within the rect of me and pressState then
show me
put false into pressState
set the cursor to gCursorNormal
end if
end repeat
if pressState then
show me
buttonpress (the short name of me)
end if
end mouseDown
on mouseEnter
global gCursorButton
set the cursor to gCursorButton
end mouseEnter
on mouseLeave
global gCursorNormal
set the cursor to gCursorNormal
end mouseLeave
ddata
@DDDD
reveal_downEXTI
ddata
revealSCRP
on mouseDown
global gCursorNormal,gCursorButton
hide me
put true into pressState
repeat until the mouse is up
if the mouseloc is within the rect of me and not (pressState) then
hide me
put true into pressState
set the cursor to gCursorButton
else if the mouseloc is not within the rect of me and pressState then
show me
put false into pressState
set the cursor to gCursorNormal
end if
end repeat
if pressState then
show me
buttonpress (the short name of me)
end if
end mouseDown
on mouseEnter
global gCursorButton
set the cursor to gCursorButton
end mouseEnter
on mouseLeave
global gCursorNormal
set the cursor to gCursorNormal
end mouseLeave
ddata
prev_downEXTI
ddata
JYHH[[HUUKKHUHHKUKKLhHL
ILiDDDODDDDDODOOOOiiOOKUJ
Il8OLLKULKhLKKKUKUKKKYK[]
bO8UKUUUUUKU,
#PUUhU8[#
POlLUKUKhUKUUUUK,IJKUKUi*#
O0UUUJLLhKKKLKUhKJhHhHlg
2#O[UKKLUhLKUUKUJJKhKKKK]K#
HJKUKUKLJUUKUhHJhKJhJh4Y
J[[iikk[k[[[[H[[[[ol0k['#
!||w|-||
w%KS!w%-0
K.6666.6...." '
######
INFO
prevSCRP
on mouseDown
global gCursorNormal,gCursorButton
hide me
put true into pressState
repeat until the mouse is up
if the mouseloc is within the rect of me and not (pressState) then
hide me
put true into pressState
set the cursor to gCursorButton
else if the mouseloc is not within the rect of me and pressState then
show me
put false into pressState
set the cursor to gCursorNormal
end if
end repeat
if pressState then
show me
buttonpress (the short name of me)
end if
end mouseDown
on mouseEnter
global gCursorButton
set the cursor to gCursorButton
end mouseEnter
on mouseLeave
global gCursorNormal
set the cursor to gCursorNormal
end mouseLeave
ddata
JYHH[[HUUKKHUHHKUKKLhHL
ILiDDDODDDDDODOOOOiiOOKUJ
I[H[UULVUUKUUUhKUH[[[HL[K
Il8OLLKULKhLKKKUKUKKKYK[]
#iioLhUKUULhKhKUJJJJKUKo0
#iO[LKLhKUKLUKKJI
JUhKU[k
i8[KJKKKUUJKUb
IKUKU8[
IiO[JUhUUKUKJs
#IKUKUiH
IOO[KKKhKJ
PKKKUZ/
,ii[LUKKc
IJKUKi[
ciOLKK\
#IKUUKZ/
'iOKUc
#IKUKUiH
eiOKU#
#chKUK[[
cOOUKJ##
#IKKKL[+
iOKUKUI
#IKJUU[[
eOOUKKULJ
#YUULi4#''.
IOiLhKKKULJ#
JULUk[
bO8UKUUUUUKU,
#PUUhU8[
OiULLLLKKKUKKJ
JKUKHi*#
POlLUKUKhUKUUUUK,IJKUKUi*#,'6
O0UUUJLLhKKKLKUhKJhHhHlg
2#O[UKKLUhLKUUKUJJKhKKKK]K
HJKUKUKLJUUKUhHJhKJhJh4Y#
J[[iikk[k[[[[H[[[[ol0k['
IRTKJ7JJJ'','e''I,J'cJc#
'77''''''','',
,,'','
,".666.66.6.66..6....""
......
66.66.6.6K
6.... '
next_downEXTI
ddata
KULKKUUKKUUKKKUKKLhHLP
&m'#'>
I8[KJKK#
JJJUKKUUOU#
||0 2
.....
44
nextSCRP
on mouseDown
global gCursorNormal,gCursorButton
hide me
put true into pressState
repeat until the mouse is up
if the mouseloc is within the rect of me and not (pressState) then
hide me
put true into pressState
set the cursor to gCursorButton
else if the mouseloc is not within the rect of me and pressState then
repeat with i= 2 to the number of rows of cd lst "documents"
unhilite row i of cd lst "documents"
end repeat
hilite row 1 of cd lst "documents"
set the vertical scrollLine of lst "documents" to 1
send mouseUp to cd lst "documents"
pass opencard
end opencard
on populate
put "Oracle Media Objects datasheet" into cell 1,1 of cd lst "documents"
put "omods" into cell 1,2 of cd lst "documents"
put "Oracle Media Net datasheet" into cell 2,1 of cd lst "documents"
put "omnds" into cell 2,2 of cd lst "documents"
put "Oracle Media Server datasheet" into cell 3,1 of cd lst "documents"
put "omsds" into cell 3,2 of cd lst "documents"
put "Oracle's Guide to the Info Highway" into cell 4,1 of cd lst "documents"
put "guide" into cell 4,2 of cd lst "documents"
put "Oracle Media Standards Effort" into cell 5,1 of cd lst "documents"
put "standards" into cell 5,2 of cd lst "documents"
hide cd fld omods
hide cd fld omnds
hide cd fld omsds
hide cd fld guide
hide cd fld standards
end populate
on showtext
show cd fld omods
show cd fld omnds
show cd fld omsds
show cd fld guide
show cd fld standards
end showtext
navscreen
screentype
newcdcard
done_downdata
doneSCRP
on mouseDown
global gCursorNormal,gCursorButton
hide me
put true into pressState
repeat until the mouse is up
if the mouseloc is within the rect of me and not (pressState) then
hide me
put true into pressState
set the cursor to gCursorButton
else if the mouseloc is not within the rect of me and pressState then
show me
put false into pressState
set the cursor to gCursorNormal
end if
end repeat
if pressState then
show me
buttonpress (the short name of me)
end if
end mouseDown
on mouseEnter
global gCursorButton
set the cursor to gCursorButton
end mouseEnter
on mouseLeave
global gCursorNormal
set the cursor to gCursorNormal
end mouseLeave
documentsSCRP
on mouseUp r
if r is empty then put 1 into r
lock screen
hide cd fld (the currField of me)
set the currfield of me to cell r,2 of me
show cd fld (cell r,2 of me)
unlock screen
end mouseUp
on mouseStillDown
get the hilitedRows of me
put it into r
lock screen
hide cd fld (the currField of me)
set the currfield of me to cell r,2 of me
show cd fld (cell r,2 of me)
unlock screen
end mouseStillDown
on mouseLeave
send mouseStillDown to me
end mouseLeave
currfield
epcotdata
MOCELL10
Oracle Media Objects datasheet
Oracle Media Net datasheet
Text Format: /info/omsdata.doc
Oracle Media Server datasheet
Oracle's Guide to the Info Highway
Oracle's Media-Standards Efforts
omods
omnds
omsds
guide
standards
Oracle Set-Top Alliance
settop
Oracle's EPCOT Exhibit
epcot
shape id 19TAIL
epcotdata
On September 29, 1994, Oracle unveiled the Information Superhighway exhibit at the INNOVENTIONS pavilion of Walt Disney World's EPCOT. See this document for more information on the exhibit.
Text: "Info Booth:epcot.txt"
PostScript: "Info Booth:epcot.ps"ADDD
omodsdata
Oracle Media Objects provides the comprehensive software authoring environment needed to create exciting interactive multimedia applications. See this document for more information.
Text: "Info Booth:omo.txt"
PostScript: "Info Booth:omo.ps"ADDD
omndsdata
Oracle Media Net provides transparent and seamless integration between multimedia clients and the high-performance Oracle Media Server. See this document for more information.
Text: "Info Booth:omn.txt"
PostScript: "Info Booth:omn.ps"ADDD
omsdsdata
Acting as a large digital "multimedia library", Oracle Media Server has the ability to deliver video and audio simultaneously to thousands of users. See this document for more information.
Text: "Info Booth:oms.txt"
PostScript: "Info Booth:oms.ps"ADDD
settopdata
Through the Oracle Set-Top Alliance, Oracle seeks to help advance industry standards and encourage open communication between the many vendors of these set-top devices. See this document for more information.
Text: "Info Booth:settop.txt"
PostScript: "Info Booth:settop.ps"ADDD
+TXT
INFO
guidedata
The Information Highway isn't just a vision anymore. Everywhere you look, it's under construction. This document covers a new vision of the information highway.
Text: "Info Booth:guide.txt"
PostScript: "Info Booth:guide.ps"ADDD
!INFO
standardsdata
From experience in developing and deploying interactive services, Oracle brings a wealth of practical knowledge to the standards process. See this document for more information on Oracle's standards efforts.
s N=GG::M@CCCCCDCCCCCDCCCCOC@DCDCEEEDD?E??E???DDDDD?CEEE?C?C??CEEEC@:AAG:GA::A:AAG:GAA:AAAAGA@:AA:A:@:A@:@@A:@@:A@::AAA@:A:A@A@AA::::@F@::@::A::@:@::A:A@:A:@M:@@@F@:M:@::F:@:M:::@F@@:::@@:@@:@::::A@:@:@:@MF:@:::@@F@@:::@@:@@:@::::A@:@:@:@F@@@:::@@F@:::@@:@@:@::::A::@:@
This example demonstrates using bitmaps as buttons and using custom properties to store state information. The script stores the next possible color value in the custom property, colorno. When you press on the bumper car bitmap, the application retrieves the current color stored in colorno, sets colorno to the next color, and changes the car to the retrieved value.
The code appears as follows:
on carClick
put the colorno of the target + 1 into n
set the colorno of the target to n mod 5
play cd snd 2
put cd bmp ("car"&n) into the target
end carClick
bitmap, thBMAP
s5.0PROP
blurscreen
5.0.00
mainsoundfile
screentype
navcard
helen_downdata
bpusu
wv{i~
~e~~x
%0400%!"&&#
>36(.'-,
-,Set
1<j<|
Z0c"]x8
0OwfU3
HwwLDd
Qt&<akga
(=xQL}A8p
IN+BiO
helenSCRP
on mouseDown
global gCursorNormal,gCursorButton
hide me
put true into pressState
repeat until the mouse is up
if the mouseloc is within the rect of me and not (pressState) then
hide me
put true into pressState
set the cursor to gCursorButton
else if the mouseloc is not within the rect of me and pressState then
show me
put false into pressState
set the cursor to gCursorNormal
end if
end repeat
if pressState then
show me
guidePress (the short name of me)
end if
end mouseDown
on mouseEnter
global gCursorButton
set the cursor to gCursorButton
end mouseEnter
on mouseLeave
global gCursorNormal
set the cursor to gCursorNormal
end mouseLeave
w}{i~
vixh}u
~Q|4}}
FEDD"
g~l{|
P(+7-\/&8O7I_1
?7;)4-
{.beS
T<<Vd
7.(6.37-R,'67',
Q333$
Hm&T,k9g
QQQQp
,'''7',',
7"7 '' '
','''''
dennis_downdata
}O}O}i
p+{!-jG
zVXDlfW
F<hbR
wo~~s~~s~
S-/T
3,O.1!2>-!-th~~s~~~~s~
wo~~~sss
NP84,!SeX2IIS*-
nt~ss~s~ss~
CQ0f0c5f,
dennisSCRP
on mouseDown
global gCursorNormal,gCursorButton
hide me
put true into pressState
repeat until the mouse is up
if the mouseloc is within the rect of me and not (pressState) then
hide me
put true into pressState
set the cursor to gCursorButton
else if the mouseloc is not within the rect of me and pressState then
show me
put false into pressState
set the cursor to gCursorNormal
end if
end repeat
if pressState then
show me
guidePress (the short name of me)
end if
end mouseDown
on mouseEnter
global gCursorButton
set the cursor to gCursorButton
end mouseEnter
on mouseLeave
global gCursorNormal
set the cursor to gCursorNormal
end mouseLeave
vuxvyxxv
~~~~~~
~~t~~s~s~~s~~~t
~~s~~~~~~~s~~~~s~
p+{!-jG
zVXDlfW
F<hbR
y2gH%:
~s~~~sc,3*+0+58
/0+!%*409,3
jt~s~~~~s
rJWj8j
ss|~|
N!5505//R*06Q
e~~~s~
CQ0f0c5f,
===)=
,'''7',,
, 7" '' '
',''''',
map_downdata
>SQSnSnQSQnSSnSSaSaSSaSSnSSSSaSSScR
#2eQePPQbbQQeeQeeeeebebeecIeIIIcI2IIP
A?OI*OO
7N)D1O*O
5e*m:D
Klm>D
D51IO**,
e,gZM
ON+&o>
sIz+D
s,V+D
5sz*V
'QeP:ul
stbIs
e@llv]_\py
d6I<I
3^<-b-)l
#PIIb'IP'
-!sCjgj!!
Nn+sD
eaKKjsCssZ)Rs!sKV@,Ie+jD
c#eII
,'''7',','7 7 ''7',,''',','''''
mapSCRP
on mouseDown
global gCursorNormal,gCursorButton
hide me
put true into pressState
repeat until the mouse is up
if the mouseloc is within the rect of me and not (pressState) then
hide me
put true into pressState
set the cursor to gCursorButton
else if the mouseloc is not within the rect of me and pressState then
show me
put false into pressState
set the cursor to gCursorNormal
end if
end repeat
if pressState then
show me
buttonpress (the short name of me)
end if
end mouseDown
on mouseEnter
global gCursorButton
set the cursor to gCursorButton
end mouseEnter
on mouseLeave
global gCursorNormal
set the cursor to gCursorNormal
end mouseLeave
#tPPPPPPPP#PPP#PP#PPPPPPPPPPPPP#P#P
#2eeeIIIebeeeeeeIeeIceeeIcIIIIIcIPIIP
Ps#c\\ebSaccccRYRccccc,,c'c'cJRRR
bJ'I#
'c,I,,,,cPIe,Jc'cI\eeccceP
BIIcI#
3*O~D
seO,!
O|IaC>
#q$1'j,e,
s,|jR
-IjsW
Fjm"}a*=
-e+sW
U6)<I
sSiR!
sseiw_nooum
9^<-b-)l
)))!)W-
eO*sW
-!sCjgjW!!
#Pc#PIIIe,c,c,e,bIIIPPP#P#PP#PI
ce,,bI#
jO2sss$
OAkjKjWssjKjjjjjjKjjjjj
ss!s!z
,'''7',',' "7 '' '
',''''',
exit_downdata
0}451
}}7204{4I
U3z52
M}{2[
M400K
z?}}2
0000004>
}21020
OY04400
1*>:<$
N7dgSZ
#######
##########
######
exitSCRP
on mouseDown
global gCursorNormal,gCursorButton
hide me
put true into pressState
repeat until the mouse is up
if the mouseloc is within the rect of me and not (pressState) then
hide me
put true into pressState
set the cursor to gCursorButton
else if the mouseloc is not within the rect of me and pressState then
S 1 S]fp/l]kkfT\`kf9fT`]lkii]```pkiOikiiiiiiiiiifkipkki]ooiip]ikoiOiOii[iiiiiiiiOiDiii]iiOOiiiiOiiiilo5kiiiiikkOiiiiikiiikkkW]oT]9kiiOTki]iiOOOOiliOil]ilofTlpTiOiiiOikiiiiliklWdfloooffilql^fiiliirio]iiqkikkliofpkfpiii`gOiiokkoiplijoiiiOOiOii]poaY]iOiOlliiki]likiiOOik]iiiT]iDOiikil]iOOiiOOoiiokiOioiiOiiWpiOOOOOiiikiiiik[iOOOiOOiOOiiiDOiiOOl]i
This example demonstrates asynchronously playing sounds using the isPlaying property of sound objects. You could also choose to play the sounds synchronously, as well as control duration and fading effects.
The script code for the fiddle player is as follows:
on mouseUp
if the isplaying of cd snd "flute" then stop cd snd "flute"
if the isplaying of cd snd "trumpet" then stop cd snd "trumpet"
if the isplaying of cd snd "drum" then stop cd snd "drum"
if not the isplaying of cd snd "fiddle" then play cd snd "fiddle"
end mouseUp
The other clowns have similar code which plays their sounds when they are selected.TAIL
nINFO
5.1b.02SCRP
on mouseUp
select before char 1 of cd fld "hidEntry"
end mouseUp
on openCard
put empty into fld "hidEntry"
select line 1 of fld "hidEntry"
pass openCard
end openCard
on closeCard
lock screen
hideEm
unlock screen
pass closeCard
end closeCard
on keyPressed x
--put x
put fld "hidEntry"&x into guess
hide cd fld "Popup"
hide cd bmp "balloon"
get the length of guess
if guess = char 1 to it of fld "secretWord" then
show bmp guess
put x after fld "hidEntry"
if guess = fld "secretWord" then
FlashIt
end if
else
put "No, not "&x&"."&return&"Try "&(char it of "MYSTERIO")&"!"
This example uses the keyPress function to determine which key was pressed and if it is the next letter in Mysterio's name. The script puts the character after the hidden entry field if the string entered up to this point matches the beginning of "mysterio". We use a timer rather than a "wait" command to display the incorrect balloon so the user can continue typing as soon as the prompt appears.
The code is as follows:
on keyPressed x
put fld "hidEntry"&x into guess
hide cd fld "Popup"
hide cd bmp "balloon"
get the length of guess
if guess = char 1 to it of fld "secretWord" then
show bmp guess
put x after fld "hidEntry"
if guess = fld "secretWord" then
FlashIt
end if
else
put "No, not "&x&"."&return&"Try "&
(char it of "MYSTERIO")&"!" into cd fld "Popup"
show cd bmp "balloon"
show cd fld "Popup"
stop cd timer 1
start cd timer 1 expire in 1 seconds
end if
end keyPressed
on returnInField
--trap returns
end returnInField
on enterInField
--trap enter
end enterInField
--tra+TXT
secretWorddata
mysterioTAIL
WBMAP
rINFO
5.1c.02SCRP
on openCard
set the lno of fld "locs" to 1
pass openCard
end openCard
on newObject
put the ref of the last cd object into myobj
if the class name of myobj is "bitmap" then
put the ref of fld "locs" into locRef
put the lno of locRef into i-- list of x,y for new bmps
if the mouseloc is within the rectangle of cd bmp "pacman" then
show cd bmp "Pacman2"
else
hide cd bmp "Pacman2"
end if
end repeat
-- now, mouse is up
set the cursor to gCursorNormal
if the loc of me is within the rectangle of cd bmp "Pacman" then
show cd bmp "Pacman3"
get the ref of fld "locs"
set the lno of it to the lno of it - 1
global gDeleteTricks
put id of me into gDeleteTricks
start cd timer "deleteme" expire in 2 ticks
else
hide cd bmp "Pacman2"
end if
end mouseDown
on mouseEnter
global gCursorButton
set the cursor to gCursorButton
end mouseEnter
on mouseLeave
global gCursorNormal
set the cursor to gCursorNormal
end mouseLeave
o+BiO
Burger0data
g+BiO
Burger0data
BM+BiO
Burger0data
BM+BiO
Burger0data
BM+BiO
Burger0data
BM+BiO
Burger-1data
M+BiO
Burger-1data
B+BiO
Burger-1data
B+BiO
Burger0data
B+BiO
Burger0data
BM+BiO
revealcoverSCRP
on mouseUp
hide_reveal
end mouseUp
em 2 +TXT
`INFO
revealscriptSCRP
on mouseUp
hide_reveal
end mouseUp
This example shows one way to create new bitmap objects at runtime. Each time you press the "make burger button" the application creates a burger bitmap object. Additionally, if you move the burger to the "pacman" object and release the mouse, the application creates the illusion of the pacman eating the burger.
The script appears as follows:
on mouseUp
if the lno of fld "locs" <
the number of lines in fld "locs"
then create cd bmp
else beep
end mouseUp
on newObject
put the ref of the last cd object into myobj
if the class name of myobj is "bitmap" then
put the ref of fld "locs" into locRef
put the lno of locRef into i-- list of x,y for new bmps
set the name of myobj to ("Burger"&i)
get value(locRef)
set the loc of myobj to line i of it
set the lno of fld "locs" to
(i mod the number of lines of it)+1
set the style of myobj to "transparent"
set the script of myobj to cd fld "burgscripts"
set the autoResize of myobj to true
put cd bmp "hidBurger" into the last object
show myobj
-- move the reveal script to the front
bring cd bmp "revealcover" to front
bring cd fld "revealscript" to front
end if
pass newObject
on mouseDown
global gCursorNormal
set the cursor to hand
put the location of me into myloc
put item 1 of myloc into xloc
put item 2 of myloc into yloc
repeat until the mouse is up
set the location of me to the mouseloc
if the mouseloc is within the rect of bmp "pacman" then
show cd bmp "Pacman2"
else
hide cd bmp "Pacman2"
end if
end repeat
-- now, mouse is up
set the cursor to gCursorNormal
if the loc of me is within the rect of bmp "Pacman" then
show cd bmp "Pacman3"
get the ref of fld "locs"
set the lno of it to the lno of it - 1
global gDeleteTricks
put id of me into gDeleteTricks
start cd timer "deleteme" expire in 2 ticks
else
hide cd bmp "Pacman2"
end if
end mouseDown
0ABMAP
on opencard
global gPathAudio, gAIF
global gs2, gs3, gs4, gs5, gs51
put false into gs2
put false into gs3
put false into gs4
put false into gs5
put false into gs51
set the soundFile of cd snd 1 to gPathAudio&"s01"&gAIF
set the messages of cd snd 1 to (cd fld "intromessages")
set the bufferSize of cd snd 1 to 180
play cd snd 1
end opencard
on mouseup
global gTransitionEffect
fadeOutSound "cd snd 1",60
lock screen
hide cd bmp "s0.2"
hide cd bmp "s0.2B"
hide cd bmp "s0.2C"
hide cd bmp "s0.3"
show cd shp 1
if gTransitionEffect is empty then
unlock screen
else
do "unlock screen with visual effect"&&gTransitionEffect
end if
playStopped
end mouseup
on poster1
global gTransitionEffect
if gTransitionEffect is empty then
hide cd shp 1
else
lock screen
hide cd shp 1
do "unlock screen with visual effect"&&gTransitionEffect
end if
end poster1
on poster2
global gTransitionEffect
if gTransitionEffect is empty then
show cd bmp "s0.2"
else
lock screen
show cd bmp "s0.2"
do "unlock screen with visual effect"&&gTransitionEffect
end if
end poster2
on blowCorner
bigdown
littleup
bigup
wait 15 ticks
littledown
bigup
bigdown
end blowCorner
on poster3
global gTransitionEffect
lock screen
hide cd bmp "s0.2"
hide cd bmp "s0.2B"
hide cd bmp "s0.2C"
show cd bmp "s0.3"
if gTransitionEffect is empty then
unlock screen
else
do "unlock screen with visual effect"&&gTransitionEffect
end if
end poster3
on blackout
global gTransitionEffect
lock screen
hide cd bmp "s0.3"
show cd shp 1
if gTransitionEffect is empty then
unlock screen
else
do "unlock screen with visual effect"&&gTransitionEffect
end if
end blackout
on playStopped
global gPathVideo,gCursorNormal,gPathAudio,gTransitionEffect, gAIF
lock screen
lock messages
go card "s1.0"
show cd btn "cover"
if gTransitionEffect is empty then
unlock screen
else
do "unlock screen with visual effect"&&gTransitionEffect
end if
lock screen
set the topleft of cd mov 1 to 200,149
set the movieFile of cd mov 1 to gPathVideo&"intro.mov"
prepare cd mov 1
show cd bmp "quitframe"
show cd shp "quitcover"
unlock screen -- iris open?
play cd mov 1
lock screen
hide cd bmp "quitframe"
hide cd shp "quitcover"
hide cd btn "cover"
unlock screen -- iris close?
set the soundFile of cd snd 1 to gPathAudio&"s10"&gAIF
(.txt)